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Keyboard SET Command routines 
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TSKST2: 



TSKBT2 is the portion of TSKMON that contains the code 
to implement the SE'I command. 



Copyright 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 
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Nashville, Tennessee 
Macro calls 



MCALL 
MCALL 
MCALL 
MCALL 
MCALL 
MCALL 
MCALL 



TTOUTR, . SRESET 

7 YIN, . TTYOUT, . PURGE 

SAVEGT, . REOPEN 



CSISPC, 

READW, . 

C3IGEN, 

GTLIN, . CT.1N, . DATE, . SPFUN 

PRINT, . CLOSE, . LOOKUP 

WRITW, . EM1LR, . EXIT 

SERR, . HERR, . FPROT, . GVAL, . PVAL 



Global definitions 

. GLOBL SETCL, SE'l t IG1 

. GLOBL SETPRC, SETTTY, STVRFY, STNOVR, SVT50, SVT100, SVT200 

. GLOBL TSKST2, CNDH1), CMDOFF, KDOCIN, SKPSPC, UCLCMD 

. GLOBL DORUN, CMDFRM, CMDDSN, STLGCN, DATT1M, PRGAL.L 

. GLOBL DLCEMT, Ai ...CDEV, CMDSHO, CMDSET, CMDWHO, CMDMEM, CMDUSE 

Global references 

. GLOBL EMSLAS, EM*LFD, EM*CLU, LWINDO, CLSFRS, LCXTBL, MXTTCT, EMfTMT 

. GLOBL PA*GRC, PA$UKC, PA*DSC, PASBLD, PA*ULN, PA*DWD, PA*HQL, PA*LET 

. GLOBL EMSPTA, EM*PTU, SBPSUF, CHKCLU, EM*CLX, PA*BEL, EM*OPR, PA*NWD 

. GLOBL SCN0P3, TM*XBK, CL*XLN, CKCLUS, ACRSTR, R50KMN, SUEMT, RJEMT 

. GLOBL PEKEMT, PEKADR, PEKSIZ, TM*NNR, CDBUF, CDGET, TMSIN1, TM*IN2 

. GLOBL SYPSWD, EM$SPL, ACRTXT, JPWDEV, JPWTYP, JPWFLG 

. GLOBL EM*WCO, EM*WC 1 , EM$WC2, EM*WC3, EM*WCM, P2$CGR 

. GLOBL CXTRMN, R$CHN, R$XCHN, CHNSIZ, C. USED, CLSEPN, CL*EPS, CLEOFS 

. GLOBL EM*STL, EM* I ST, CLSFEP, EM*IDR, VPRIBF, SETWRD 

. GLOBL CLRPRV, OPTLST, PFSO, PFCO, PVNPW, PO*SPV, PRIVSO, PRVOPT 

. GLOBL TM*PVA, TM*PVC, PRIVAO, EM*CNO, EM*CPO, EM*CAP, RSTPRV 

. GLOBL CHKEQ, CKACOJ, PO*OPR, CKSYPV, P2$TRM, PRIVC2, PO*NAM, EM*NPR 

. GLOBL INSTBL, INGADR, INGEMT, I IBUF, I ISNAM, I I*FLG, I I$*SZ, EM*NAD 

. GLOBL INSTBN, AFifiSCA, AFSNOW, AF*MEM, PO*DBG, PRIVCO, PRVLST 

. GLOBL ABRTAD, ABRTCD, CINFLG, SVNOTT, I I*PRV, I I*NPV 

. GLOBL TMfRDl, TM*RJ>2, TM*LCL, TMSGBL, SPACE1, RC*OWN, RC*CNT 

. GLOBL RC*EXC, RC*AGE, RC*AEP, RC*USE, RCSFLG, RC*GBL, RCSNAM 

. GLOBL RC*LEN, RC*PVT, RCBBAS, RCBEND, RC$*SZ, SHRRCB, SHRRCN 

. GLOBL LP$SPD, LP*PAR, LP*ODD, LP$7BT, EM*ICL, PROSLT, RC*LCG 

. GLOBL EM$NPD, EM$ILN, EM*CIP, EM$NSF, EMflUN, EM*CLN, EM*IVN 

. GLOBL EM*ILN, EM*ACL, EM*TSL, EM$CLB, EM*NSL, EM*SLT, EM$SLW 

. GLOBL SLKDON, SLKDOF, EMSUIO, TMSPR1, TM*PR2, TM*LPR, TM*HPR 

. GLOBL TM$HPE, TMfcCNG, TM*CDS, TM*CEN, TRMHD1, TRMHD2, AT*DEV 

. GLOBL OPRTXT, CELINE, L CLTXT, REMTXT, TM*AUT, CLFREE, CLUNIT, CLVERS 
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GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
0L OBI- 
GLOB L 
GLOBL 
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TM*CLO, 

1Q1 



TM*CL.i. 



QHDMS1. QHDMS2, DVSHH1, DVSHH£ 



TH$CL2, TM*CL3, TM*CL4, TM*CL5» TM*CL6 
«>■ DVSHH3, SYASHD, DKASHD 
TM*NAD, ALOHDl , ALCHD2, TM«NSD, TM*SDN, LNAME 
CORUSR, LSW, *CTRLO, SERFLG, IOABFL, *CHACT, U.STSNG 
LSTHL, LCLUNT. FSTIOL.. LSTIOL, CL$LIX, CW*PRO, C0NFG2 
CLSRQH, CL«WQHi MAXALC, ALCTBL, ALCEND 
ADSDVU, AD* JOB, AD*$SZ, UCIDEF, HANCHN 
NEDCHR, LOUTIR, LINIR, LINRTS, CLOTIR 
COSDEF, CL*CDL» LCDTYP, SQPALC, SOPDAT, SOPTIM 
UTRPAD, JSWLOC, ERRLGC, MAXMEM, MAXPRI 
l icqctu tKTWIT. r«T«. MV.IMFM. nP\JMEM- EM*HWT 

SPUBUF, SXBPNT, MXJADR, CLSFCH 

TMTOTH, TMTOTL, TMUSRH, TMIQWH, LDMNT, EM$C5E 

TMSWTH, TMIDLH. TMIOH, TMSWPH, LDCLEN 

WILDFL, *IMOIN, *NOWTT* *HITTY 

TECO, EDIT, KED, K52, $1STLG, $DIBOL 

SH$VAL, SH*NAM> SH*$SZ, SH*RTN, SH*FLG 

SO$NVL, SO$OCT, SO*NO, HANENT, HANSIZ 

H. CSR, H. VEC, DVSTAT, SFID, ACRSPD, HANPAR, LSTSPL 

HAZEL, HAZLFL, HAZLNO, $MLOCK, MDT, GETKCH 

LINSUF, LINNXT, LSTACT, PRGTOP, PRGSIZ, KMNHI 

KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG, FSTIOL 

LINPNT, LINCNT, LACTIV, LRDTIM, CS*RON 

LOTBUF, LOTNXT, LOTPNT, *VTESC 

LOTSIZ, L0T3PC, LCOL, *5LKED, ESC, VDBFLG 

LAFSIZ, LFWLIM, LINCUR, NUMON, ILSW2 

$DBKMN 

$CARUP, DOAGGN, UKMNAM, $UKMOiM, LSW9 

LSUCF, *CCLRN, VLDSYS, EM*NUK, S$GMIO 

KL3CLR, *PRGLK, LSW5, PVON, S*SPND, *AUTO 

S*TWFN, S*TTF-N, S*OTFN, S*IOFN, SHOTLO 

LSTDL, FSTDL, SDETCH, UMSYTP, S$TTSC 

*DISCN, LPROJ, LPROG, LUNAME, S*RT, S*LOW 

LCPUHI, LCPULO, LCONTM, *CTRLS, SSPLJB, TXTCL 

STPFLG, TOTGN, USPLCH, SPLCHN, SSHICP 

SSINWT, SSOTWT, S*TMWT, S*SFWT, S9600 

S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

MINTIM, LSECPT, MAXSEC, $EMTTR, VCSHNB 

OKFILE, OKFEND, *CLTST, UCISPC, MHNSIZ 

CASTBR, CASCBR, CASTBW, CASCUP, MHNSMS 

CASTRO, CASTWO, CLTOTL, COSDTR, CLSFSP 

CO*CR, CO$FF, COfFFO, CO*LC, CO*TAB, CO*CTL 

COfLFI, CO$LFO, C04BNI. CO*BNO, CL*OPT 

CL*LEN, Ct *SKP, CL*WID, CL*LIN, PHYMEM 

LJSW, CTRLTT, NEWJSW, JSTKND, VIMAGE 

USTART, GEMTOP, BOTDEV, BOTUNI, CSHALC 

♦CTRLC, LSW2, $INKMN, CHAIN, UFORM 

*SGQO, *SGQ3, LITIME 

MAXASN, *CFABT, INDSTA, INDERR 

RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

*DILUP, CSHDEV, CSHDVN, LNSBLK 

LSW3, LSW2S, *DUPRN 

*FORM, *TAB, LSCCA, *CFSOT, LOFSPC, R50C0M 

*PAGE, «SCOP£> *ECHO, *LC, *8BIT, CHKALC 

UCHAN, *FORMO, *CFALL, $CFDCC, *CFCCL 

LNPRIM, LNMAP, CWfSOH. CONFIG, *SUCF 

*D0OFF, NUCilN, LRBFIL, CFIND, TALENT 
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GLOBL C. CSW.. C. DEV&, C. SBLK, NLINES, C0S8BT 

CLOBL CD*NAM, CD$DVU, CD*BAS, CDSJOB, CD**SZ, CD**UB 

GLOBL LTSCMD, LNSPAC, CFNEST, UCLNAM 

GLOBL SCFOPN, CFSEMD, PBFEND, CFSP, *TTGAG 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

CLOBL SDFLAG, SD*FLK, SDSWFM, 5DFQRM, *UCLRN 

GLOBL SDBUF1 . SDBLK, MSPLBV, LD*RON, *UCLCM, SUCLCL 

GLOBL LDNAME, LBSI ZE, LDFLAG, LDBASE, LDPDEV 

GLOBL LSW8, *SGQ1 , $SGQ1 A, $SGQ1B, *5GQ1C, $SGQ2, *>SGI 10, *SGHIO 

GLOBL *DEFER, CFCHAN, SCHAIN, LDDEVX, *SGALL 

ci nm rc-DMT. rcni u, <!;fSt ITPT. DTA0F[ 

GLOBL DIABNO, VT52N0, LA36N0, LA36FL 

GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

GLOBL *INCQR, $KED, VQUN1B, VINTIO, VGUN1C 

GLOBL SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

GLOBL SDSHLD, SFSHLD, CURPRM, PRMPNT, SF*1ST 

GLOBL LSTPRM> PRMBUF, PRMEND, CFSPND 

GLOBL SDFHD, SFFLAG, SFQLNK, CFHOLD, LOGDVU, LOGBAS 

GLOBL LCQL, *QTSET, *TECO, CD*TOP. LOGCHK 

GLOBL *WILD, ERRSEV, UERSEV, PASLIN, LOGBAS, LOGDVU 

GLOBL LSTPL, SDCB, SDCBND, VQUANO, VQUAN3 

GLOBL VQUAN1, V«UN1A> VGUAN2, VHIPCT, VQUAMO, VQUAN3 

GLOBL DCTRD, DCCRD, DCTWR, DCCWR, ASNSRC 

GLOBL VCORTM, NUMDCD, VNUMDC, KMPRMT, MXPRMT 

GLOBL RDB, RDBEND, RT*NAM, RT$*SZ, CLDEVX, SDDVU 

GLOBL SDNAME, SDCBSZ, LSTSL, LSTATE 

GLOBL TK1VAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BASMAP, LOMAP, HIMAP, JCXPGS 

GLOBL SMRSIZ, SRTSIZ, CSHSIZ, TK1SEC 

GLOBL TSXLN, TSXSIT, GRT1, TRGRET, LICTXT, SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPRG1 , LPRC2, S*GUSR, S*IOWT, S*SFWT 

GLOBL SSSPDB, S*SPCB, SFUSER, SFFILE, VT200, VT2007, VT200S 

GLOBL LCBIT, LA36, LA.120, VT52, VT100, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VT10FL, VT10N0, GUMEFL, Q.UMENO, ADM3FL 

GLOBL VT2GFL, VT20JM0 

GLOBL ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

GLOBL OF*DEV, OF$UNT» OF*FIL, OFSFLG, SYNAME 

GLOBL 0F*$5Z» OT*RON, RESDEV, *TAPE 

GLOBL KMNBAS, 0D7BAS. *CTRLD 

GLOBL LSW6, *SNWTT, PFSSYS, PF*IOW, *DEBUG 

GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL fINDDF, *INDRN, IN*ACT, INSCNT, IN*CMD, INDSAV 

GLOBL $PHQME, IMVEC, LMXLN, MXVEC, *INIT, *DEAD, *HARD 

GLOBL ITRMTP, LMXPRM.- L8W7, *INDAB, CFSTS, CF*IND, CF*QUT 

GLOBL CFABLV, MONVEC, LBSPR I, MAXPRI, MXJPRI, LPRI, *SYSPS 

GLOBL LOOCHN. LOGFLG, LOGPTR, LOGBUF, LOGBLK 

GLOBL LF*OPN, LF*WRT, UCLBLK, UCLDAT 

GLOBL CSHHD, FC*CDX, FCfLMK, FD*NAM, UC*NDC, UC$MDC, CVTUC 

GLOBL CMOBUF, PAUMSG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

GLOBL INVOPT, FKILL, ABRTCF, ACRFN, XAREA, FILMAM, NOPRG, FPRINT 

GL OBL PUSHCF. TRMSTR, FILIMAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INOACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50TSX, R50UCL 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

GLOBL BADSAV.. LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX. KCSIMS, ASMOVF, GTRD50, R50BUF, R50LD0, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT. CHKMTX, INFOMT, NOFLAG, MTOPHD, INVOPT, ILLCMD 
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GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0, AMBOPT, ACRDEC 

GLOBL MAXAVL, PR7DEC, DEVUNT, PNAME, HNBUF, CKTERM 

GLOBL ACROCT, HANBSY, CSIMS1, MZSSEQi NOIND, POPCF 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 

GLOBL BDLGOP, SPLHLA, NOCCL, LDOPHD, PRTFIX, PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, SPDTX1, NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHD1 , SYHD2, PRTLN, SPACE2, DETTXT, SPACE3, RNMS 

GLOBL SWPTX, LOCKTX, SPACE5, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NQUDC, DEVHD1 , ASNHDi , ASNHD2.. SHMTH1 , 5HMTH2, PRTTMD 

GLOBL CVDVNM, SPACE6, PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, MNBPC 

GLOBL DELSPC , MNB ASE, MNTOP , MONHD, MONAR 1 , NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, CHKDLM, SPLHD, AMBOPT, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, MOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG 

GLOBL LINFRE, DJABMS, DLMSG, INVTIM, DMTALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUM1, SUM2, SUM3, SUM4 

GLOBL SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS, CHKTTD 

GLOBL SIZEMT, ASiMOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

GLOBL KMNNAM, NOKMOM, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL DETHD, DETARG, RUWM3, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

GLOBL AR*PRJ, AR$PRG, ARSCON, AR*CNT, AR*CPH, AR*CPL, AR*UNM 

GLOBL AR*DMY, AR**SZ, ARNRPB, *SLON, *SLTTY, *SLLET 

GLOBL PRTWRN, SLMXL1M, VSLEDT, *LOFCF, CSHMSG 

GLOBL AF*HIE, AF*N01, $NOINT, AF*PLK, AF*DBG 

GLOBL AF* I OP , *RN I OP 
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132500 



Assembly constants 



L F 

CR 

BLANK 

BELL 

TAB 

FF 

COMMA 

BLKWDS 

WLDNAM 



12 
15 
40 
07 
11 
14 
54 

1 32500 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

COMMA 

# OF WORDS IN DISK BLOCK 

RAD50 /*/ (WILDCARD) 
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Macro to cause a fatal error message to be printed. 

. MACRO FERR MSG 

MOV R5, -(SP> 

MOV MSG, R5 

CALL FPRINT 

MOV <SP>+, R5 

. ENDM FERR 



Macro to print a fatal error message, clean up 
and then jump to RDCMD. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a uarning message 

. MACRO FWARN MSG 

MOV R5, -<QP) 

MOV MSG, R5 

CALL PRTWRN 

MOV <SP)+, R5 

. FNDM FWARN 



Macro to start a standard option table. 

Name •- 1 to 4 character table name. 

NA = Number of arguments per table entry. 



. MACRO TBLDEF 
NARGS - NA 

. CSECT CMDVS2 
2*NA 
TBLDEF 



NAME, NA 



NAME'HD: . WORD 
. ENDM 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNO = Ascii name 

A, B, C = Set of option parameters to store in table with name. 

.MACRO CMDDEF STRNO, A, B, C 
. CSECT NAMES2 



i POINTER TO NAME STRING 



L 


. ASCIZ 
. CSECT 


/STRNO/ 
CMDVS2 








. WORD 


L 




> 




. WORD 


A 






. I IF 


GE, <NARGS-2> 


. WORD 


B 


. IIF 


GE, <NARGS-3> 


. WORD 


C 




. ENDM 


CMDDEF 
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59 i Macro to end a set of tab Jo entries. 

60 s 

63 . MACRO TBLEND 

62 . CSECT CMDVS2 

63 . WORD 

64 . CSECT TSKST2 

65 . ENDM TBLEND 



J 

1 



TSKST 



C1TD 
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000002 
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28 








29 








30 


000050 


000 


126 


31 


000052 


000013 




32 


000054 


000000 




33 








34 








35 








36 


000056 


000 


.1. 54 


37 


000060 


000000 




38 


000062 


000000 




39 








40 








41 








42 


000064 


001 


154 


43 


000066 


000000 




44 








45 








46 








47 


000070 


002 


154 


40 


000072 


000000 




49 








50 








51 








52 


000074 


001 


150 


53 


000076 


002 


001 


54 


000100 


0000000 




55 


000102 


000000 





Data areas 



R50HST: . RAD50 /*HDST*/ 
000000 CLDEV: . RAD50 /CLN 



R50CL0: 


. RAD50 


/CLO/ 


R50C10: 


. RAD50 


/CIO/ 


CPFLAG: 


. WORD 







t! c: +■ r\ ti ci A 


j n £pci_A/. 


CPFSUS 


~ 


1 


CPFRES 


=s 


2 


CPFAUT 


= 


4 


SETPRM: 


. BYTE 





CPPID: 


. BYTE 





CPPRIO: 


. BYTE 





CPNAME: 


. BLKB 
. EVEN 


12. 



; Suspend process 

■> Resume proc ess 

; Set authorized privileges 

; Indicates if SET is temp or perm 
i Process ID for SET PROCESS command 
; Priority value for SET PROCESS command 
; Name buffer for SET PROCESS command 



Emt to assign a CL line to a time-sharing line 



CLAEMT: . BYTE 0, 155 
. WORD 
. WORD 



j CL unit number 
; Line number 



Emt to cross connect our time-sharing line with a CL unit 



TTXCL 



. BYTE 
. WORD 
. WORD 



Q t 1 c6 

13 





Emt to set line speed 

LSPEMT: . BYTE 0, 154 

. WORD 

. WORD 



; Line number 
; Speed code 



Emt to reset XOFF status for a line 



XONEMi : 


. BYTE 


1, 154 




. WORD 





> EMI 


to set/- 


1 e s e t D 


DTREMT: 


. BYTE 


2, 154 




. WORD 





i Emt 


to set ] 


j r i v i 1 e 


PVSEMT: 


. BYTE 


1, 150 




. BYTE 


fc- t X 




. WORD 


PFSO 




. WORD 






; Assume raise DTR <3»154 = drop DTR) 



56 



A 
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; Emt to clear privilege flap: 



5K 


3T2 - 

57 
58 


-- Key bo 


ard SE'I 


Command 




59 


000104 


001 


1 50 




60 


000106 


001 


001 




61 


000110 


00 00 000 






62 


000112 


000000 






63 










64 










65 










66 


000114 


000 


126 




t. ~r 

w t 


W W W -*• 'I- i-' 


nnnnon 

1.J- W W w i~~ v •- 






68 


000120 


000000 






69 










70 










71 










72 


000122 


007 


161 



PVCEM'f : 


. BYTE 


1, 150 




. BYTE 


1, 1 




. WORD 


PFCO 




. WORD 






i Emt to start an inactive 1 ine 

i 

STAEMT: . BYTE 0, 126 

i.inpri on 

. WORD 
Emt to declare terminal type change to process windowing system 

WINSTT: . BYTE 7, 161 
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3 




4 


000124 


5 


000002 


6 


000012 


7 


000022 


a 


000032 


9 


000042 


10 


000052 


1 1 


000062 


12 


000072 


13 


000102 


14 


000112 


15 


000122 


16 


000132 


17 


000142 


IS 


000152 


19 


000162 


20 


000172 


21 


000202 


22 


000212 


23 


000222 


24 


000232 


25 


000242 


26 


000252 


27 


000262 


28 


000272 


29 


000302 


30 


000312 


31 


000322 


32 


000332 


33 


000342 


34 


000352 


35 


000362 


36 


000372 


37 


000402 


38 


000412 


39 


000422 


40 


000432 


41 


000442 


42 


000452 


43 


000462 


44 


000472 


45 


000502 


46 


000512 


47 


000522 


48 


000532 


49 


000542 


50 


000552 


51 


000562 


52 


000572 


53 


000602 


54 


000612 


55 


000622 


56 


000632 


57 


000642 



Options for SET TT command 



TBLDEF 

CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 



TT, 3 

ADM*3A, SADM3A, 0, 

AUTO*BAUD, SAUTO, 0.. 

NOAUTO*BAUD, CLRTTP, LSW2, *AUTO 

BIT*S, STOLEN. 0, O 

DEAD. SETDED, LSW3, *DEAD 

NODEAD, CLRTTP. LSW3, *DEAD 

DEC#WRITER; BTLA36, 0. 

DEF*ER. SETT IB. LSW2. *DEFER 

NOD*EFER, CLRTTB, LSW2. $DEFER 

DI#ABLO, SDIAB, 0.0 

DT*R, SETDTR. O. O 

NODT#R, CLRDTR.O. O 

E*CHO, SETTTB, LSW2. *ECHO 

MOE*CHO. CLRTTB. LSW2. SECHO 

EIGHT KB IT, SETTTB, LSW2, *8BJT 

NOEIGHT#BIT, CLRTTB, LSW2, $8BIT 

FORM, SETTTB, LSW2, *FORM 

NOFORM, CLRTTB, LSW2, *FORM 

FORMO, SETTTB, LSW4, $FORMO 

NOFORMO, CLRTTB, LSW4, *FORMO 

G*AG, SETTTB, LSW7, *TTGAG 

NOGH-AG, CLRTTB, LSW7, *TTGAG 

HAZEL#TINE, STMAZL, 0, 

HO#LD, RDCMD, 0. 

IMOH*GLD, RDCMD, 0, 

LA 1*20, SLA 120, 0,0 

LA3#6, STLA36, 0, 

LC, SETTTB, LSW2, $LC 

NGL#C, CLRTTB, LSW2, *LC 

LE#NGTH, RDCMD, O, 

PAG#E, SETTTB, LSW2, *PAGE 

NQP*AGE, CLRTTB, LSW2, *PAGE 

PAR#ITY, SETPAR, 0, 

NGPAR#ITY, STNOPR, 0, 

PHO*NE, SETTTP. LSW2, *PHONE 

NOPHQ#NE, CLRTTP, LSW2, $PHONE 

QUI#ET, SETCiUT, 0,0 

NOO-fi-UIET. RSTOUT, 0. 

GUM*E, SQ.UME. 0, 

SC#OPE, SETTTB, LSW2, *SCOPE 

NOSC*OPE, SETNSC, 0, 

SEVEN-aBIT, CLRTTB, LSW2, *8BIT 

SI#NGLE, SETTTB, LSW6, SSTSNG 

NOSIK-NGLE, CLRTTB, LSW6, *STSNG 

3PE#ED, STTTSP, 0, O 

STA*RT, STTTST, 0. 

SYSP*ASSWORD, SETTTP, LSW2, *SYSPS 

N0SYSP*A5SW0RD, CLRTTP, LSW2, *SYSPS 

SYSPS, SETTTP, LSW2, $SYSPS 

NOSYSPS, CLRTTP, LSW2, * SYSPS 

SYSPH-WD, SETTTP, LSW2, f-SYSPS 

NOSYSP*WD, CLRTTP, LSW2, *SYSPS 

TAB, SETTTB, L«i 



TSKST2 - 


— Keyboard 


SET Command 


5S 


000652 




< 59 


000662 




60 


000672 




61 


000702 




4 62 


000712 




63 


000722 




64 


000732 




1 65 


000742 




66 


000752 




67 


000762 




f AQ 


000772 




69 


001002 




70 


001012 




< 71 


001022 




72 


001032 




73 


001042 




< 74 


001052 




75 


001062 




76 






i 77 






78 






79 


000124 




1 SO 


001066 




81 


001076 




82 


001106 




€ S3 


001116 




84 






85 






€ 86 






87 






, 88 


000124 




i 89 


00 1 1 22 




90 


001130 




91 


001136 




€ 92 


001144 




1 93 


001152 




94 


001160 




i 95 


001166 




96 


001174 




97 


001202 




< 98 


001210 




99 


001216 




100 


001224 




< 101 


001232 




1 102 


001240 




| 103 


001246 




i 104 


001254 




( 105 


001262 




106 


001270 




i 107 


001276 




108 


001304 




109 


001312 




i 110 


001320 




111 


001326 




1 112 


001334 




< 113 


001342 




114 


001350 
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CMDDEF NOTAB, CLRTTB, LSW2, *TAD 

CMDDEF TAP#E, SETTTfi, LSW2* *TAPE 

CMDDEF NOTAP*E, CLR7TB, I.SW2, *TAPE 

CMDDEF TR*ANSLATE ., STTRMS, 0, 

CMDDEF VT1#00, SVT100, 24. , 

CMDDEF VT2*00, SVT200, 24. ,0 

CMDDEF VT220, SVT200, 24. , 

CMDDEF VT24Q, SVT200, 24. , 

CMDDEF VT241 , SVT200, 24. , 

CMDDEF VT5#0, SVTSO, 12. , 

fMnnpp uti-u-o. cu-c;n. oa . n 

CMDDEF W#AIT, SETTW, 0, 

CMDDEF NOU*AIT. SETTNW, O, O 

CMDDEF XQN, SEIXQN, O, 

CMDDEF 8BIT, SETTTB, LSW2, *8BIT 

CMDDEF N08BIT, CLRTTB, LSW2, $8BIT 

CMDDEF 7BIT, CLRTTB, LSW2, $8BIT 

TBLEND 

Define options for SET T"i En 3 PARITY= command 

TBLDEF PAR, 3 

CMDDEF E#VEN, STPAR, LP*PAR 

CMDDEF 0*DD, STPAR, LP*PAR I LPSODD 

CMDDEF N#ONE, STPAR, 

TBLEND 



Define options for the SET CLn command 

TBLDEF CLOP, 2 

CMDDEF BIT*S, STCLBl , 

CMDDEF CR, STCLOP, CO*CR 

CMDDEF NOCR, CLCLOP, CO*CR 

CMDDEF DTR, STCLOP, C0*D7R 

CMDDEF MODTR, CLCLOP, CO*DTR 

CMDDEF ENDP*AGES, STCLVL, CL*EPN 

CMDDEF ENDS#TRINO, CLESTR, 

CMDDEF FORM, STCLOP, CO*FF 

CMDDEF NOFORM, CLCLOP, CO*FF 

CMDDEF FF, STCLOP, COUFF 

CMDDEF NOFF, CLCLOP, CO*FF 

CMDDEF FORMO, STCLOP, CO$FFO 

CMDDEF NOFORMO, CLCLOP, CO*FFO 

CMDDEF GRtfAPH, STCLGR, 0. 

CMDDEF NOGR*APH, STCLGR, 132. 

CMDDEF LC, STCLOP, COULC 

CMDDEF NOLC, CLCLOP, COHLC 

CMDDEF TAB, STCLOP, CO*TAB 

CMDDEF NOTAB, CLCLOP, CO*TAB 

CMDDEF CTRL, STCLOP, CO*CTL 

CMDDEF NOCTRL, CLCLOP, CO*CTL 

CMDDEF LEN#GTH, STCLVL, CL$LEN 

CMDDEF LFIN, STCLOP, CO*LFI 

CMDDEF NOLFIN, CLCLOP, CO*LFI 

CMDDEF LFOUT, STCLOP, COSLFO 

CMDDEF NOLFOUT, CLCLOP, CO$LFO 



tskst; 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 

126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



356 
364 
372 
400 
406 
414 
422 
430 
436 
444 



001460 
001466 
001474 
001502 
001510 
001516 
001524 
001532 
001540 
001546 
001554 



000124 
001560 
001566 
001574 
001602 



000124 
001606 
001612 
001616 
001622 



000124 
001626 
001634 
001642 
001650 
001656 
001664 
001672 
001700 



CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 

CMDDEF 

Cktnncc 

CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
TBLEND 



LIN#E, STCL.L 
BININ, STCLO 
NOBININ, CLC 
BINOUT, STCL 
NOBINOUT, CL 
SB IT, STCLOF 
EIGHT#BIT, S 
N08*BIT, CLC 
N0EIGHT*BIT 
7BIT, CLCLOP 



N, 

L0P,C0$BNI 
OP, CD*BNO 
CLOP, CO*BNO 
, C0*8BT 
fCLOP, C0*8BT 
LOP* C0*8BT 

CLCLOP, CO*SBT 

CO*BBT 



NQPAR*ITY, STCLNP 
SEVEN*BIT, CLCLOP, C0*8BT 
T0P,CLT0P, 
TRANSLATE, CLTRNS, 
RES*ET* STCLRS, 
SKI*P, STCLVL, CL4SKP 
WID#TH, STCLVL, CL*WID 
SP*EED, STCLSP, 
VER*SI0N, 5TCLVR.0 
XON, 5TCLXN, O 



Define options for SET CL PARITY 5 * command 

TBLDEF CLPR, 2 

CMDDEF E#VEN, STCLPR, LP*PAR 

CMDDEF 0*DD, STCLPR, LP*PAR i LP$ODD 

CMDDEF N*GNE, STCLPR, O 

TBLEND 

Define options for the SET HOST command 

TBLDEF HOST, 1 

CMDDEF DTE, HSTDTE 

CMDDEF CL, HSTDTE 

CMDDEF PO-hRT, HSTPR1 
TBLEND 

Define options for SET PROCESS command 

TBLDEF CP0P, 2 

CMDDEF PR IV* I LEGES, PRVOPT, 

CMDDEF ID*ENTIFICA1 ION, CPPP.ID, 

CMDDEF NAM*E, CPPNAM, 

CMDDEF PR 1 0#R I TY, CPPPR I , O 

CMDDEF SUSPKEND, CPPFLG, CPFSUS, 

CMDDEF RES#UME, CPPFLG, CPFRES, 

CMDDEF AU*THOR I ZED, CPPFLG, CPFAUT, 

TBLEND 



< 

C 
< 
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. SBTTL SET commands 

. SBTTL . ProivhB 



3 








; 


4 








i 


5 








> 


6 


000124 






C 


7 








i 


S 








; 


9 








i 


10 


000124 


1 1 6767 


0000000 177671 




11 


000 1 32 


105067 


177667 




12 


000136 


105067 


177662 




13 


000142 


005067 


177652 




14 


000146 


004767 


0000000 




15 










16 










17 










18 


000152 


012704 


001624' 




19 


000156 


004767 


0000000 




20 










21 










22 










23 


000162 


004767 


000366 




24 


000166 


004767 


000644 




25 


000172 


004767 


000464 




26 


000176 


004767 


000676 




27 








i 


28 








.* 


29 








i 


30 


000202 


000167 


OOOOOOG 


5 



SE 



Process the SET PROCESS command. 
TPRC: 
Initialize cells which will hold values parsed by the command 



MOVB 


CORUSR, 


CPPID 


CLRB 


TDMAMC 




CLRB 


CPPRIO 




CLR 


CPFLAG 




CALL 


CLRPRV 





Do command parsing 

MOV #CPOPHD, R4 
CALL OPTLST 



.; Set process ID==our job 

: Kl /i n^tma c n rs r ■i ■/- i o A 

i t "I W * > M lith. .rf U *~ »- .L t J- i~ U 

j No priority 

;No flags 

j No privi leges 



; Point to option driver list 
.; Parse the command 



Now process each option that was accrued 



CALL 


CPSNAM 


CALL 


CPSPRI 


CALL 


CPSPRV 


CALL 


CPSFLG 



9* 



Finished command 

JMP RDCMD 



; See if process name was specified 

j See if priority was specified 

; See if privileges were specified 

; See if flags were specified 



; Finished command 



i 

i 

€ 
4 

< 
( 
I 

« 
< 

< 
( 
4 
I 
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Process 



< 

i 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 



13 
14 
15 
16 
17 
13 
19 
20 
21 

23 
24 
25 
26 
27 
28 



000206 010146 



000210 004767 OOOOOOG 



000214 006301 

000216 001413 

000220 020 1 27 OOOOOOG 

000224 101010 

000226 032761 0000000 OOOOOOG 

000234 001410 

000236 110167 177561 



000242 012601 
000244 000207 



000246 
000256 



j SET PROCESS/IDENTIFICATION=job-number 
CPPPID: MOV R1,-<SP> 

Arc rue the ID value 
CALL ACRDEC 

Ma he sure the ID value is valid 



ABL 


Rl 


BEO 


10* 


CMP 


R 1 , #LSTSL 


BHI 


10$ 


BIT 


#*DILUP,LSW<R1> 


BEQ 


11* 


MOVB 


Rl, CPPID 


F i n i shed 




MOV 


<SP>+» RJ 


RETURN 





I rival id ID 

10*: FABORT #EM*ILN 
11*: FABORT #NOTON 



; Convert to word table index 

j I rival id if zero 

; Is this a valid job #? 

; Br i f not 

; 1 s line logged on ? 

; Br if not 

i Save ID val ue 



invalid job numver 
Line not loqcied on 



i 
« 

« 
I 

i 
< 
f 
t 

i 

i 

i 

< 

i 

i 

< 
i 



< 
< 

< 

4 

i 
i 



TSKST2 — Keyboard SET Command MACRO V05. 04 Monday 21-Dec-S7 12: 58 Page 8 

Protefc b 



1 

2 








3 








4 


000266 


010146 




5 


000270 


010546 




6 








7 








8 








9 


000272 


004767 


0000000 


10 








1 1 








12 








13 


000276 


00570.1. 




14 


000300 


003406 




15 


000302 


120167 


0000000 


16 


000306 


101003 




17 


000310 


110167 


177510 


18 


000314 


000424 




19 








20 








21 








22 


000316 






23 


000332 


012705 


000001 


24 


000336 


004767 


0000000 


25 


000342 






26 


000350 


116705 


0000000 


27 


000354 


004767 


0000000 


28 


000360 






29 








30 








3.1. 








32 


000366 


012605 




33 


000370 


0.12601 




34 


000372 


000207 





SET PROCESS/PR IORITY«value 



CPPPRI: MOV 
MOV 



R 1 , - < BP ) 
R5, -<SH> 



Accrue the priority valut? 
CALL AC R DEC 



TST 


Rl 


BLE 


10* 


CMPB 


Rl. MXJPRJ 


13 HI 


10* 


MOVB 


Rl, CPPRIO 


BR 


9* 



Invalid priority value 



10* 



9*: 



: FERR 


#BADPRI 


MOV 


#1, R5 


CALL 


PRTDEC 


. PRINT 


#TOTXT 


MOVB 


MXJPRI.RI 


CALL 


PRTDEC 


. PRINT 


#CRLF 


F i n i s h e ci 




MOV 


(SP>+, R5 


MOV 


<SP)+. Rl 


RETURN 





i Accrue priority value 






Must be > O 

Br if invalid 

Is it within valid range for job? 

Br if not 

Save priority value 



i Invalid priority value 
; Minimum prio value 

i "to" 

; Max possible 



i 

i 
# 
4 

4 
4 
< 
4 
I 
I 
4 
4 
4 
4 
C 
4 
4 
< 
4 
4 
4 
I 
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. 4 
I 
C 

1 < 
i 

i « 



4 


000374 


010246 




5 


000376 


010446 




6 








7 








8 








9 


000400 


004767 


0000000 


10 

4. Jk. 


000404 


012702 


000025 ' 


12 
13 








14 


000410 


004767 


OOOOOOG 


15 


000414 


1 1 1 300 




16 


000416 


120027 


000042 


17 


000422 


00 1 403 




IS 


000424 


120027 


000047 


19 


000430 


00101''! 




20 








21 








22 








23 


000432 


004767 


OOOOOOG 


24 


000436 


005700 




25 


000440 


00 1 423 




26 


000442 


020027 


000014 


27 


000446 


1 1 026 




28 


000450 


012704 


OOOOOOG 


29 


000454 


.1 1 2422 




30 


000456 


077002 




31 


000460 


000413 




32 








33 








34 








35 








36 


000462 


1 1 1 300 




37 


000464 


00 1411 




38 


000466 


120027 


000057 


39 


000472 


001406 




40 


000474 


005203 




41 


000476 


020227 


000041 ' 


42 


000502 


103010 




43 


000504 


1 1 0022 




44 


000506 


000765 




45 








46 








47 








48 


000510 


020227 


000041 ' 


49 


000514 


10301J 




50 


000516 


1 1 2722 


000040 


51 


000522 


000772 




52 








53 








54 








55 


000524 






56 








57 









SE f PROCESS/NAME="s+r inq " 



CPPNAM: MOV 
MOV 



R2, ~<SP> 
R4, -<3P> 



Make sure equal sign follows keyword 



CALL CHKEG 

MOV #CPNAME, R2 



j Check for equal sign 

; Point to buffer for name 



See if string is enclosed in quote marks 



CALL 


SKPSPC 


MOVB 


<R3), RO 


CMPB 


RO, #42 


BEQ 


3* 


CMPB 


RO, #47 


ONE 


1* 



;Skip over any spaces 
j Get 1st char of string 
i Quote mark? 
; Br i f yes 
i Apostrophe? 1 
i Br if not 



String is enclosed in quote marks 



3$: 



4*: 



CALL 


ACRSTR 


TST 


RO 


BEQ 


2* 


CMP 


RO, #12. 


BHI 


10* 


MOV 


#BLKQ, R4 


MOVB 


(R4)+, <R2) + 


SOB 


RO, 4* 


HR 


D* 



; Accrue a quoted string 

; Is string empty7' 

.; If empty, go blank fill it. 

i Is string too long? 

> Br i f too long 

.; Point to accrued string 

> Move to string buffer 

.; Go blank fill rest of buffer if needed 



Name string is not quoted. 

Move name to buffer till we hit end of string 



1$: 



MOVB 


<R3), RO 


BEQ 


2* 


CMPB 


RO, #'/ 


BEQ 


2* 


INC 


R3 


CMP 


R2, #CPNAME+12 


BHIS 


10* 


MOVB 


RO, <R2> + 


BR 


1* 



Get next char from string 

Br if hit end of command 

Start of next qualifier? 

Br if yes 

Point to next character in command 

Buffer overflow? 

Br if yes 

Store char into name buffer 



Fill remainder of buffer with blanks 



?*: 



CMP 


R2, 


#CPNAME*12 


BHIS 


9* 




MOVB 


#' 


, <R2)+ 


BR 


2* 





Filled buffer yet? 

Br if yes 

Pad with blanks 



Error: string is too long 
10*: FERR #EM*STL 
> F i n :i s h e d 



> String is too long 



TSKST2 — Keyboard SET Command MACRO V05. 04 Monday 21 -Dec -87 12: 58 Page 9-1 
Process 

58 i 

59 000540 012604 9*: MOV <SP>+, R4 

60 000542 0.12602 MOV <SP>+, R2 

61 000544 00020/ RETURN 

62 ; 

63 i Set some flaq for a SET PROCESS qualifier 

64 i 

65 000546 051467 177246 CPPFLG: BIS <R4>,0PFLA0 i Set specified flag bit 

66 000552 000207 RETURN 



I 
I 
I 



I 
< 



< 

< 
c 

< 

« 
€ 

< 
< 
I 
i 

C 



TSK8T2 — Keyboard SET 

Proces s 



2 








3 








4 


000554 


010146 




5 


000556 


010246 




7 








a 








9 


000560 




177241 


10 

1 1 


000564 


00142;* 




12 
13 








14 


000566 


116701 


177231 


15 


000572 


120167 


OOOOOOG 


16 


000576 


001021 




17 


000600 


032767 


OOOOOOG 


18 


000606 


001 42.1 




19 


000610 


070127 


000006 


20 


000614 


062701 


OOOOOOG 


21 


000620 


012702 


000025 ' 


22 


000624 


012700 


000014 


23 


000630 


112221 




24 
2ft 


000632 


077002 




26 
2/ 








28 


000634 


012602 




29 


000636 


0.1260.1 




30 


000640 


000207 




3.1 








32 








33 








34 

35 


000642 
000652 
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See if NAME q ua 1 i f i er wa <■■ s p o c i f i ed . 



CPSNAM: MOV 
MOV 



R 1 , - < SF J ) 
R2, -<SP> 



See if name qualifier mat; specified 



TSTB 
BEG 



CPNAMF-: 

9* 



> Was name qualifier specified? 
i Br if not 



Make sure we are changing for our own process 



1*: 



MOVB 


CPPID, Rl 


CMPB 


Rl, CORUSR 


BME 


10* 


BIT 


#PO*NAM, PRIVCO 


BEQ 


11* 


MUL 


#6. , Rl 


ADD 


#LUNAME,R1 


MOV 


#CPNAME, R2 


MOV 


#12. , RO 


MOVB 


<R2>+, (Rl )i- 


SOB 


RO, 1* 


i vi i shed 




MOV 


<SP>+, R2 


MOV 


<SP>+, Rl 


RETURN 





Get job index 

Affecting our own process?" 

Br if not 

Are we authorized to change our name? 

Br if not 

Each job has 12 character name 

Point to name cell for our job 

Point to name buffer 

Get # bytes to move 

Set name for job 



9*: 



Cannot change name of another job 

1 O* : FAB OR T #EM*C NO 
US: FAB OR T #EM$NPR 



i 

< 
i 

< 

I 

< 

It 

i« 

» I 

) 

€ 

I 

< 

< 

I 

< 

t 
i 
f 



TSKSTc 



— Keyboard 
P roce i" s 
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J 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



000662 
000664 
000666 



000670 
000674 
000700 
000704 
000706 
000710 
000712 
000714 
000716 



000720 
000726 



000730 
000734 
000742 
000744 
000750 
000754 



000760 
000762 
000766 
000770 
000772 



000774 
001000 
001002 
001004 



001006 
001010 
001012 
001014 



010246 
010346 
010446 



012702 
012703 
012700 
005722 
001004 
005723 
001002 
077005 
000433 



126767 
00 1 033 



012704 
032767 
001402 
012704 
1 1 0467 
1 1 0467 



005004 
012700 
104375 

103001 
005204 



012700 
.104375 
005704 
001010 



0.12604 
012603 
012602 
000207 



Change privilege flapti for our process. 



CPSPRV: MOV 

MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP) 



See if any privilege changes were specified 



0000000 
0000000 
0000000 



1$: 



MOV 
MOV 
MOV 
1ST 
ONE 
TST 
BME 
SOB 
BR 



#PFSO, R2 
#PFCO.- R3 
#PVNPW, RO 
< R2 ) + 
2* 

<R3) + 
2* 

RO, 1* 
9* 



Flags to set 

F 1 a n g to clear 

# words to check 

Any flags to setT' 

Br if yes 

Any flags to clear? 

Br if yes 

Keep checking 

No privilege changes requested 



Make sure we are changing privileges for our job 



177077 OOO00OG 2*: 



CMPB CPPID, CORUSR 
BNE 10* 



; Changing privilege for our job? 
; Br if not 



Set correct EMT function code depending on whether we are doing 
normal privilege change or are changing authorized privileges. 



000001 
000004 

000002 
177123 
177127 



177056 



4*: 



MOV 

BIT 

BEG 

MOV 

MOVB 

MOVB 



#t,R4 ; Assume normal priv change 

#CPFAUT> CPFLAO > Changing authorized privileges? 

4* i Br if not 

#2.. R4 ; Code to change authorized privileges 

R4, PVSEMT+3 > Set code in EMT arg block 

R4, PVCFMT+3 



Set any specified privileges 



000074 ' 



CLR 
MOV 
EMT 
BCC 
I MC 



R4 
#PVSEMT, RO 

375 

3* 

R4 



.; No privilege error detected 

; Point to EMT arg block 

; Set privilege flags 

; Br if no authorization violation 

> Remember we had authorization violation 



Clear any specified privileges 



000104 ' 



3*: 



9*: 



MOV 


#PVCEMT, 


EMT 


375 


TST 


R4 


BME 


11* 


Finished 




MGV 


<SP>+, R4 


MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


RETURN 





Point to EMT arg block 

Clear privilege flags 

Did we have an authorization violation? 

Br if yes 



i Can't change privilege Pur another job 



TSKST2 — Keyboard SET Command MACRO V05. 04 Monday 2i~Dec-87 12:58 Page 11 1 

Proces b 



58 

59 001016 

60 

61 

62 

63 001026 



10*: FABORT #EM$CFQ i Can't change privilege for another job 

Not authorized to give yourself this privilege 
11*: FABORT #EM$CAP > Can't authorize that privilege 



c 

4 
I 
« 

< 

< 
€ 
< 

i 
C 
4 
I 
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P races s 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

i;j 

14 
15 
16 
17 
IS 
19 
20 
21 



001036 010246 



001040 105767 176760 

001044 001413 

001046 116702 176751 

001052 004767 OOOOOOG 

001056 103406 



001060 116762 176740 OOOOOOG 
001066 116762 176732 OOOOOOG 



001074 012602 
001076 000207 



See if we need to change priority for job. 
CPSPRI: MOV R2, -(SP) 

See if a priority change unas requested 



TSTB 


CPPRIO 


13EQ 


9* 


MOVB 


CPPID, R2 


CALL 


riAArn. t 


BCS 


9* 



Was a priority specified 

Br if not 

Get ID # of job we want to affect 

Can sue access that job? 

Br if not 



Change priority value 



MOVB 
MOVB 

F i n i b h e d 



9*: 



MOV 
RETURN 



CPPRIO, LBSPKKR2) .Set base priority 
CPPRIO, LPR I <R2> i Set running priority 



(5P)+, R2 



TSKST2 — Keyboard SE'f 

Process 
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J. 

2 








3 








4 


001100 


0.10246 




5 








6 








7 








8 


001102 


032767 


000003 176710 


9 


001110 


001423 




10 








1 1 








12 








13 


001112 


.1 1 6702 


176705 


14 


001116 


12026/ 


0000000 


15 


001122 


001420 




16 








17 








18 








19 


001124 


004767 


0000000 


20 


001130 


1034113 




21 








22 








23 








24 


001132 


012700 


0000000 


25 


001136 


032767 


000002 176654 


26 


001144 


00 1 002 




27 


001146 


012700 


0000000 


28 


001152 


01,0260 


000004 


29 


001156 


10437',} 




30 








31 








32 








33 


001160 


012602 




34 


001162 


000207 




35 








36 








37 








38 


00 1 1 64 







See if we need to suspend or resume a job. 

CPSFLG: MOV R2, ~<SP> 

See if any flags were specified 

BIT #<CPFSUS!CPFRES>, CPFLAG ; Suspend or resume requested? 

DEO 9* i Br if not 

i 

: NI-akdT* cut. a i.xa ra-m an * +■ c nc nsiiirf i nfi r\Y- T k Of;iilTr - ir%rt HU^ Oti**** ! 1 H 



MOVB 
CMPB 
BE0 



CPPID, R2 
R2, C0RUSR 
10$ 



Oet ID # of job we want to affect 
Is it our job? 
Br if" yes 



Make sure we can access the specified job 



CALL 
BCS 



CKAC0J 

9* 



; Can we access that job? 1 
; Br if not 



Suspend or resume the specified job 



1*: 



MOV 


#RJEMT, HO 


BIT 


#CPFRES, CPFLAG 


BME 


1* 


MOV 


#SJEML RO 


MOV 


R2, 4<R0> 


EMT 


375 


Finished 




MOV 


<SP>+, R2 


RETURN 





Point to resume-job arg block 
Does he want to resume the job? 
Br if yes 

Point to s usp end-job arg block 
Set job # in EMT arg block 
Suspend or resume the job 



9*: 

Error — Trying to suspend or resume our own job 
10*: FABORT #EM*IDR ;/ID parameter required 



TSKST2 — Keyboard SET 
T e r m i n a i 
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£7. 

3 
4 
5 
6 
7 
8 
9 



001174 



OOJ 



1 i 
12 



OOJ 
00] 



Ml 74 
10 001200 

> 1 204 
»1206 
H210 
>1212 
>1214 
U220 



13 00: 

14 oo: 

15 003 

16 00] 

17 001 

18 003 

19 00 

20 00 

21 00 

22 00 

23 00 

24 00 
25 

26 



1230 
1234 
1236 
1240 
1242 
1244 



105067 
004767 
01030!? 
005002 
112500 
00 1 4 1 3 
120027 
001410 
120027 
103435 
120027 
101032 
005202 
000763 
00 5702 
001426 



176622 
0000000 



000040 
000060 
00007 1 



28 
29 
30 
3.1 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001246 004767 OOOOOOG 



001252 

00 

00 

001262 

001264 



1254 
1256 



006301 
001403 
020127 
101404 



0000000 



00 
00 



1274 
1300 



004767 
110167 



0000000 

176516 



SE 



. SBTTL I evmjnal 

Process the SET TERMINAL command. 
TTTY: 

See if a line number uas specified 



2*: 



CLRB 


SETPRM 


CALL 


SKPSPC 


MOV 


R3; R5 


CLR 


R2 


MOVB 


<R5>+, RO 


BEG 


2* 


CMPB 


RO, #40 


BEQ 


2* 


CMPB 


RO, # y 


BLO 


3* 


CMPB 


RO, #'9 


BUI 


3* 


INC 


R2 


BR 


1* 


TST 


R2 


BEQ 


3* 



Assume no line number specified 

Skip over any spaces 

Save pointer to first operand 

Say no digits seen yet 

Get next char 

Br if hit end of command line 

Is this a space? 

B r if ye s 

Is this a digit? 

Br if not 

* Br if not digit 

> Remember we saw a digit 

iScan first item and see if it is a number 

;Was first item a number? 

.; Br if not 



There is a terminal number specified, accrue it 

CALL ACRDEC > Accrue the terminal number 

See if this is a va)id terminal number 



ASL 


Rl 


BEQ 


4* 


CMP 


Rl, #LSTP1 


BIOS 


5* 



4*: 



5*: 



Convert line number to line index number 
Zero is not valid line number 
Is this a primary line number? 

Br if yes 

Invalid line number 



FABORT #EM#ILN 
Require TERMINAL privilege to make any permanent change 



CALL 
MOVB 



CKTERM 
Rl, SETPRM 



i Require TERMINAL privilege to do this 
; Remember to make set permanent 



If we are changing line parameters for a line that is not 
currently logged on, initialize the LSW2 table from the initial 
flags for the' line (ILSW2). 



00 
00 
00 



1 304 
1312 

1314 



032761 
001003 
016161 



0000000 OOOOOOG 
OOOOOOG OOOOOOG 



B 1 T 
BNE 
MOV 



#$DII_UP, LSWCR.t ) ; Is line logged on? 

3* ;8r if yes 

ILSW2<Ri), LSW2<R1)j Initialize LSW2 table 



00 
00 



132 



1 2704 
004767 



000000 ' 
OOOOOOG 



We have the terminal line index number for which the command is being 

issued in R 1 . 

Process all qualifier specified with command. 



3$: 



MOV 
CALL 



#TTHD, R4 
SCNOPS 



.; Get pointer to option table 

.; Process all of the command options 



TSKST2 — Keyboard SET Command MACRO V05. 04 Monday 21 -Dec -87 12: »8 Page 14-1 
Terminal 

58 J End of command reached 

59 ; 

60 001332 000167 0000000 JMP RDCMD > Finished SET TT command 



( 

t 

i 
< 

< 
4 
4 
4 



TSKST2 - 



J. 
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032761 
001404 



032761 
00 1 404 



3 

4 001336 004767 0000000 

5 

6 

7 

B 

9 
10 
1 i 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 



001342 
001350 
001352 



001362 
001370 
001372 



001402 
001406 
001410 



001420 
001424 
001430 
001432 



00 5761 
002404 



010167 
012700 
1043713 
000207 



0000000 OOOOOOG 



0000000 OOOOOOG 1*: 



SET TERMINAL n START 

STTTST: CALL CKPRIV » Require OPER privilege 

See if line is already started 

BIT #$DILUP, LSW<R1 ) ;Is line already started? 

BEG 1$ ; Br if not 

FABORT #EM*LAS ; Line is already started 



See if line is marked dead 

BIT #*DEAD, LSW3<R1) i Is line marked as dead? 

BEG 2* ; Br if not 

FABORT #EM$LFD ; Line is dead 

See if a CL unit is attached to the line 



OOOOOOG 



TST LCLUIMT(Rl) 

BLT 3* 

FABORT #EM*CLU 



Start the line 



176474 
000114' 



3$: 



9*: 



MOV 


Rl, STAEMT+4 


MOV 


#STAEMT, RO 


EMT 


375 


RETURN 





i Is line being used by a CL unit? 

i Br if not 

; Line in use by a CL unit 



j Store line index into EMT arg block 

; Point to EMT arg block 
; Start the 1 ine 



< 
t 

€ 

< 

< 
< 
4 
4 

4 

4 
i 

i 

i 
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1 

2 
3 
4 


T e r m i n a 


1 














; SET 


TERMINAL 


fin] SPEED: j t 






001434 


004767 


OOOOOOG 


STTTSP 


CALL 


CKTERM 




> Requ 


5 


001440 


004767 


0000000 




CALL 


ACRSPD 




. Acer 


6 


001444 


042761 


OOOOOOG OOOOOOG 




B1C 


#*AUTO, LSW2(R1) 


Say 


7 


001452 


116100 


00000 1G 




MOVB 


LMXPRM+KR1), 


RO 


Get 


S 


001456 


042700 


OOOOOOG 




33 1 C 


#<LP*SPD>> RO 




Clea 


9 


00 1 462 


050001/ 






BIS 


RO, R5 




Comb 


10 


001464 


010567 


176372 


STSP 1 : 


MOV 


R5, LSPEMT+4 




Stor 


1 1 


001470 


010167 


1 76364 




MOV 


R 1 ; LSPEMT+2 




Stor 


12 


001474 


006267 


176360 




ASR 


LSPEMT+2 




Conv 


13 


001500 


012700 


000056 ' 




MOV 


#LSPEMT, RO 




Poin 


14 


001504 


10437b 






EMT 


375 




Set 


15 


001506 


103402 






BCS 


2* 




Br i 


16 


001510 


000167 


000474 




JMP 


BS01 






17 








i 










18 








i Error on EMT 


to set speed 






19 








.« 










20 


001514 






2*: 


F ABORT 


#EM*ILN 


i 


Say 



jire TERMINAL privilege 
i ue speed value 

no autobaud on this line 

control flags for line 
sr speed flags 

line parity and length -flags with speed 
^e speeds par* len code into EMT arg block 
i e line # into EMT arg block 
'ert index # to line # 
it to EMT arg block 

the speed 

f error 



i Say invalid line number 



< 



I 
I 
i 

i 

i 

>< 

i 

i < 

i 

i « 
l« 

4 

! C 
I 4 

4 

4 

i 
i 

! 
I 

i 



TSKSTc 



— heyboara 
Term in a i 
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3 
4 


001524 


004767 


0000000 


5 


001530 


1 1 67 


176332 


6 


001534 


006267 


176326 


7 


001540 


012700 


000064 ' 


S 


00 1 544 


104375 




9 


001546 


10340,2 




10 


001550 


000167 


000434 


11 


001554 







SET TT Cn3 XON 



SETXQIM: 


CALL 


CKTERM 




MOV 


Rl, X0NEMI+-2 




ASR 


XONEMT+2 




MOV 


#XONEMT> RO 




EMT 


375 




BCS 


2* 




JMP 


BS01 


?*: 


FABORT 


#EM$ILN 



; Require TERMINAL privilege 

i Set line # in EMT argument block 

; Convert index # to line # 

■> Point to EMT argument block 

i Do the XON EMT 

; Br if invalid line # 

■Say invalid line number 



I 

4 

< 
f 



tskst; 



— Key boar; 
T e r m i n a 1 



SET Command MACRO V05. 04 Monday 21-Dec-87 12: 58 Page 18 



2 
3 
4 












:■ SET 


TT tin 3 


C NO 3 DTR 


001564 


1 1 2767 


000002 


1762 


76 


SETDTR : 


MOVB 


#2, DTREMT 


5 


001572 


000403 










BR 


DTRCOM 


6 


00 1 574 


1 1 2767 


000003 


1 76266 


CLRDTR: 


MDVB 


#3, DTREMT 


7 


00 1 602 


004767 


0000000 






DTRCOM: 


CALL 


CKTERM 


S 


001606 


006201 










ASR 


Rl 


9 


001610 


010167 


176256 








MOV 


R 1 , DTREMT+2 


10 


00.1614 


006301 










ASL 


Rl 


1 1 


001616 


1 2700 


000070 ' 








MOV 


#DTREMT; RO 


12 


001622 


10437!) 










EMT 


375 


13 


001624 


103402 










BCS 


2* 


14 


001626 


000167 


000356 








JMP 


BSD! 


15 


001632 










2*: 


FAB OR T 


EM*ILN 



Set function to raise DTR 

Br to common routine 

Set function to lower DTR 

Require TERMINAL privilege 

Convert line index to line number 

Set in EMT arg block 

Oet back as line index 

Point to EMT arg block to 

Raise or lower DTR 

Br on EMT error 

> San invalid line number 



t 

« 

« 

< 

< 

C 

< 

« 

4 

i 

< 

4 
I 

< 

i 



TBKSTc 
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ermiiia I 



1 

n 

3 

4 00 

5 00 

6 00 

7 00 

8 00 

9 00 
10 00 



1642 00476 

1646 05276 

1654 03276 

1662 00100 

1664 01270 

1670 000675 

1672 000167 000312 



7 0000000 SAUTO: 

1 0000000 OOOOOOG 

1 0000000 OOOOOOG 

3 

5 OOOOOOG 



€ 



SET TERMINAL AUTODAUD 



9$: 



CALL 


CKTERM 


BIS 


#$AUTO> LSW2<R1> 


BIT 


#*DILUP> LSW(Rl) 


BNE 


9* 


MOV 


#39600, R5 


BR 


BTSP 1 


JMP 


BS01 



; Require TERMINAL privilege 

; Set flag saying to do autobaude select 

i Is anyone usinn the Una nm.i'7 

.; Br if yes 

* Set line speed 



using the line now' 
to 9600 baud 



TSKST2 — Keyboard SET 
'( 'ermina 1 
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.1 

2 
3 

4 00 

5 00 



167 



6 
7 



00: 
00: 



(1700 
>1704 
S1710 
*1714 
>1716 
10 001720 



8 oo; 

9 oo: 



SET TERMINAL PARITY--- (EVEN ODD NONF> 



12 00 

13 00 



1730 
1732 



010446 

004767 

004767 

121327 

00 1001 

005203 

012704 
rw", f\-?/L7 

012604 
000207 



SETPAR: 



000000G 

000000G 
000075 



001064' 
nnnnnr,{>. 



1$: 



MOV 

CALL 

CALL 

CMPB 

BNE 

IMC 

MOV 

w « IU.U. 

MOV 
RETURN 



R4, -<SP) 

CKTERM 

SKPSPC 

<R3).. #'« 

1* 

R3 

#PARHD, R4 

ccTi.ion 



; Save current option table pointer 

; Require TERMINAL privilege 

iSkip past any spaces 

; Equal sign following PARITY? 

; Br if not 

iSkip past equal sign 

;Point to new option table 

.■Process EVEN, ODD,- NONE word 



TSKST2 ~ 



- he yc oar a 
"ermine 1 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 



SEI TERMINAL BITS-n 



001734 
001740 
001744 
001746 
001752 
001756 
001762 
001764 
001770 
001772 
001776 
002000 
002010 
0020 1 2 



004767 
116105 
010102 
004767 
042705 
020127 
001003 
052705 
000407 
120127 
001404 

0.1020.1 
00016/ 



0000000 
0000010 

0000000 
0000000 
000007 

0000000 

000010 



177446 



STOLEN: 



1*: 



»*: 



CALL 

MOVB 

MOV 

CALL 

BIC 

CMP 

BNE 

BTS 

BR 

CMPB 

BEG 

FAB OR T 

MOV 

JMP 



CKTERM 

LMXPRM+KRi), R5 

Rl, R2 

ACRDEC 

#LP*7BT, R5 

Rl, #7. 

1* 

#LP*7BT.- R5 

2$ 

Rl, #8. 

2* 

#EM*ICL 

R2, Rl 

STSP 1 



i Require TERMINAL privilege 
; Oet current line parameters 
> Save line index number 
> Accrue parameter value 
iAssume S bits wanted 
; Is value 77' 
; Br if not 
■Select 7 bits 

Is value 8? 

Br if yes 

Invalid character length 

Oet back line index number 

Oo set new length 



c 



TSKST2 - 


--■ Keyboard SET 


Command 




i e rmina 


i 




1 

n 








3 








4 








5 








6 








7 








8 


002016 


004767 


Q00000G 


9 


002022 


116105 


G00001G 


10 


002026 


042705 


ooooooc 


i 1 

j. .1. 




1 51405 




12 
13 
14 


002034 


000167 


177424 








15 








16 


002040 


004767 


0000000 


17 


002044 


116105 


0000010 


18 


002050 


042705 


OOOOOOC 


19 


002054 


000167 


177404 


20 








21 








22 








tZ-t3 








24 


002060 


010146 




25 


002062 


016101 


0000O0G 


26 


002066 


004767 


002156 


27 


002072 


01260.1 




2S 


002074 


000207 
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SET TERMINAL PARITY-tfcVEM ODD NONE} 

Inputs: 
R J : ~ .1 i n e index numb f. • r . 
R4 = Pointer to work with parity flag bits. 

STPAR: CALL CKTERM ; Require TERMINAL privilege 

MOVB LMXPRM+KR1 ), R5 > Get current flags for line 
BIC #LP$PAR !LP*0DD.. R5; Clear parity control flags 

man t!\OA D^ : <3o+- nsin f lane 

JMP STSP1 ; Go set value 

SET TERM INAL NOPAR 1 I Y 

STNOPR: CALL CKTERM ; Require TERMINAL privilege 

MOVB LMXPRM+KRD.R5 i Get current flags for line 

BIC #LP*PAR!LP*ODD, R5i Clear parity control flags 

•JMP STSP1 > Go set value 



SET TERMINAL Cn3 TRANSLA1 E~< ex t=int, ex t=int, 



) 



MOV 

MOV 

CALL 

MOV 

RETURN 



Rl, -<SP) 
LNPRIM(R1 )>U1 
PRSTRN 
<SP>+, Rl 



•> Save original line number 

;Make sure we have primary line number 

; Parse the translate qualifier 

; Restore original line number 



I 
4 

i 
4 

4 

< 

I 

I 

€ 

€ 

f 

€ 
4 
4 

« 
« 
< 
4 

i 



i 
\ 
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i 

< 

i 

i 

i 



3 

4 

5 

6 

7 

3 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

17 
e- / 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

4S 

49 

50 

5.1 

52 

53 

54 

55 

56 

57 



002076 
002104 
002112 
002120 



002136 
002144 



002152 
002156 
002160 
002164 
002166 
002172 
002174 
002200 
002202 
0022 1 



002224 
002232 



002234 



002250 



002266 
002274 
002302 
002310 



0023 1 2 
002320 
002326 
002334 



052761 
012761 
000414 



042761 
05276.!. 
012761 
04 2761 



120167 
001006 
005761 
00 1403 
012700 
104375 
105767 
001403 
016161 
016161 
105767 
001403 
016161 
000207 



042761 
052761 
012761 
042761 
000732 



042761 
052761 
012761 
000720 



042761 
052761 
012761 
000706 



0000000 

0000000 

000122' 

175622 

0000000 OOOOOOG 
0000000 OOOOOOG 
175600 

0000000 OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



Set parameters for particular terminal types. 

SET PARAMETERS FOR A VT50/VT52. 
SET VT50 
SVT50: BIC #VT52N0> LSW2<R1 ) ; CLEAR SOME FLAGS 



BIS 
MOV 
BR 



#VT52FL, L.SW2<Ri>; SAY TERMINAL IS A VT50 
#VT52.. LTRMTP(RI); SET TERMINAL TYPE 
BS02 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



SET PARAMETERS FOR LA36. 

STLA36: BIC #LA36N0, LSWIMR1 ); RESET VARIOUS FLAGS 

B I S #L A36FL , L0W2 ( R 1 ) 

MOV #LA36, LTRMTP<R1 >i SET TERMINAL TYPE 

BIC #$SLON, LSW7<R1 > ;Disalble SL editor for this terminal type 

Set up terminal type information 



BS02: CMPB 
BNE 
TST 
BEG 
MOV 
EMT 

1$: TSTB 
BEO 
MOV 

BS01: MOV 
TSTB 
BEQ 
MOV 

SETJMP: RETURN 



Rl« CORUSR 

1* 

LWINDO(Rl) 

1$ 

#WINSTT, RO 

375 

SETPRM 

BS01 



■> Changing terminal type for our job? 

i Br if not our job 

i Is process windowing turned on for job? 

; Br if not 

; Point to EMT argument block 

;Tell windowing system about terminal type 

; Should we make the set permanent? 

; B r if not 

LTRMTP(Rl), ITRMTP(Rl) ; Set initial terminal type 
LSW2<R1 ), LSW2S<R1 ) ; Save in case of ctrl-c reentry 
SETPRM > Should we make the set permanent? 

SETJMP ; Br if not 

LSW2<R1>, ILSW2<R1); Set initial flags for line 

.Return to process next qualifier 



LA J 20 parameters 

SLA120: BIC #LA12N0, LSW2CR1 ) ■• SET FLAGS 

BIS #L A 1 2FL , LSW2 < R 1 ) 

MOV #LA120, LTRMTP<R.t ) > SET TERMINAL TYPE 

BIC #*SLQN, LSW7<Ni > ;Disalble SL editor for this terminal type 

BR BS02 

VT .1 00 p a r a m e t b r s 



DVT 100: BIC 
BIS 
MOV 

STERM: BR 



#VT 1 ONO, LSW2 < R 1 ) ; SET FLAGS 

#VT10FL> LSU2<R1> 

# V T 1 00, L.TRMTP i R .! ) ; SET TERM I NAL TYPE 

BS02 



VT200 parameters 



SVT200: BIC 
B I S 
MOV 
BR 



#VT20N0,LSW2(R1 ) 
#VT20FL, t SW2<R1 ) 
#VT2Q0, LTRMTP<R1 ) 
BS02 



Hazel tine parameters 



t 



TSKST2 — Key a oar d 
Terminal 
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59 
60 
61 
62 
63 
64 
65 
66 
67 

i.O 

ww 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



002344 
002352 
002360 
002366 



002370 

002404 
002412 
002420 



002422 
002422 
002430 
002436 
002444 
002452 



002454 
002460 
002464 

002470 
002476 
002504 
002510 
002512 
002532 
002534 
002540 
002564 



002570 
002574 
002600 

002604 
002612 
002620 
002624 
002626 
002646 
002650 
002654 
002700 



052761 
012761 
042761 
000671 



042761 
052761 
012761 
042761 
000654 



042761 

W *J li. / 1*.* A 

012761 
042761 
000637 



1 .1. 6701 
004767 
000167 

052761 
052761 
120167 
001025 

010002 
052702 

00016/ 



11670.1. 
004767 

000167 

042761 
04 2761 

120167 
001025 

0.10002 
042702 



0000000 
0000000 
0000000 
0000000 



0000000 
0000000 
0000000 
0000000 



STHAZL: BIC #HAZLN0» LSW2<R1 > ; RESET SOME FLAGS 

B I S #HAZLFL» LSW2 <Ri)i SET SOME FLAGS 

MOV #HAZEL, LTRMTP<R1);SET TERMINAL TYPE 

BIC #*SL0N, LSW7(R1 ) iDisalble SL editor 

BR BS02 

ADM3A parameters 



for this terminal type 



0000000 OOOOOOG SADM3A: 
nrtnonnn nnnnnna 

-l.c irf *_- 1*1 ft U »* W W v^ V.* In * h-* W 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIC #ADM3!M0 , LSW2 < R 1 ) > SET FLAGS 

BIS #ADM3FL; LSW2 i R 1 ) 

MOV #ADM3A, LTRMTP<R1 > ; SET TERMINAL TYPE 

BIC #*SLQN> LSW7<R1 ) iDisalble SL editor for this terminal 

BR BS02 



type 



SET PARAMETERS FOR DIABLO -1620 TERMINAL 



SQUME: 
OOOOOOG OOOOOOG SDIAB: 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIC #DIABNO, LSW2<Rl)i RESET VARIOUS FLAGS 

BIS #DIABFL, LSW2<R1 >; SAY THIS IS A DIABLO 

MOV #DI ABLO, LTRMTP < R 1 ) i SET TERMINAL TYPE 

BIC #*5LCN, LSW7<R1> iDisalble SL editor for 

BR BS02 



this terminal type 



SET TT QUIET 

<A:1bo> SET NOVERIFY) 



OOOOOOG 

000004 

OOOOOOG 



STNOVR : MOVB 
CALL 
JMP 



OOOOOOG OOOOOOG SETQUT: 
OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
17 7420 



1*: 



BIS 

BIS 

CMPB 

BNE 

. GVAL 

MOV 

BIS 

. PVAL 

JMP 



CORUSR, Ri 

SETQUT 

RDCMD 

#*QTSET»LSW2<Ri) 

#*GUIET,LSW4<R1> 

Ri. CORUSR 

1* 

#XAREA, #<CFSTS--MONVEC> 

RO, R2 

#CF*Ql»T, R2 



> Get current job index number 

» Do the set 
; Finished 

i REMEMBER SET WAS DONE 

i HAVE IMMEDIATE EFFECT 

; Are we doing set for current job? 

> Br i f not 

i GET CURRENT COMMAND FILE FLAGS 

; SET TT-QUIET FLAG 



#XAREA» #<CFSTS-MONVEC>, R2; STORE UPDATED FLAGS 

BS01 



SET 
(Alt 



TT NOQUIET 

o, SET VERIFY) 



OOOOOOG 

000004 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



STVRFY: 



RSTQUT: 



000167 177304 



MOVB 
CALL 
JMP 

BIC 

BIC 
CMPB 
BNE 
. GVAL 
MOV 
BIC 
. PVAL. 
JMP 



CORUSR , RI 

RSTQUT 

RDCMD 

#*QTSET, LSW2(R1 > 

#*QUIET, LSW4 <R1 > 

RI.. CORUSR 

1* 

#XAREA, #<CFSTS-~MONVEC 

RO, R2 

#CF*GUT, R2 

#XAREA, #<CFSTS-MONVEC 

BS0.1 



i Get current job index number 
i Do the SET 
; Finished 

; REMEMBER SET WAS DONE 

; START LISTING NOW 

; Are we doing set for current line? 

; Br if not 

; GET CURRENT COMMAND FILE FLAGS 

j CLEAR TT-QUIET FLAG 
-.. R2i STORE UPDATED FLAGS 
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T b r m i n n i 



O'Ti-O 



< 
I « 



115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
i 25 
126 
127 
128 
129 
130 
131 
132 
183 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 



002704 
002712 
002720 



002724 
002732 
002740 



002742 
002750 



002760 
002764 
002772 
002774 



003004 
0030 i 
003012 
003014 
003016 



003022 
003026 
003030 
003032 
003034 



04276.1 
042761 
000167 



04 2761 

04276.1 
000207 



052761 
052761 
000207 



004767 
032761 
001406 



004767 
012405 
060105 
04 1 4 1 5 
000167 



SET TT NOSCOPE 



OOOOOOG 
OOOOOOG 
177264 



OOOOOOG 
nonnnoc 



OOOOOOG 
OOOOOOG 



SETNSC : 13 1 C 
BIG 
JMP 

SET TT WAIT 



#*SCOPE, LSW2<RJ ) 
#*SLON, LSW7CR1) 

BS01 



; Say this is not a scope type terminal 
; Disable SL editor 



OOOOOOG 
OOOOOOG 



SETTW: 



BIC 

BIC 
RETURN 



#*SNWTT, LSW6(R1);UND0 SET TT NOWAIT 

fitMflUTT. ! '~iU<.n-)i \ 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



SET TT NOWAIT 

SETTNW: BIS 

BIS 
RETURN 

SET TT DEAD 

SETDED: CALL 
BIT 
BEQ 



#*SNWTT, LSW6<R1>; SET TT NOWAIT 
#*NOWTT, LSW5<R1) 



CKTERM 

#*DILUP, LSW<R1> 

SETTTB 



Require TERMINAL privilege 

Is line active now 

Br if not 

Can't kill an active line 



FABORT #RUNMS 
Perform terminal sets that only involve setting or clearing flag bits. 



004767 OOOOOOG 

012405 

060105 

051415 

000167 177166 



SETTTP: CALL 

SETTTB: MOV 

ADD 

BIS 

JMP 



CKTERM 
(R4)+, R5 
Rl, R5 
SR4, GR5 
BS01 



RESET A BIT IN A USER TABLE 



OOOOOOG 



177150 



CLRTTP: CALL 
CLRTTB: MOV 
ADD 
BIC 

JMP 



CKTERM 
<R4)+, R5 
Rl, R5 

@R4, @R5 
BS01 



i Require TERMINAL privilege 

.: POINT TO TABLE 

i POINT TO TABLE ENTRY FOR THIS USER 

iSET THE DESIRED FLAG 



Require TERMINAL privilege 

POINT TO TABLE 

POINT TO TABLE ENTRY FOR THIS USER 

RESET THE DESIRED FLAG 



TSKST2 — Keyboard SET 



3 








4 








5 








6 








/ 








3 


003040 


004767 


0000000 


9 


003044 


020227 


0000000 


10 


003050 


103404 




i i 


003052 






12 


003062 


006302 




13 








14 








15 








16 








17 


003064 


004767 


0000000 


18 


003070 


ill 300 




19 


003072 


001434 




20 


003074 


120027 


000054 


21 


003100 


00 1 403 




22 


003102 


120027 


000057 


23 


003106 


001005 




24 


003110 


005203 




25 


003112 


004767 


0000000 


26 


003116 


105713 




27 


003 1 20 


00 1 4 1 5 




28 








29 








30 








31 


003122 


012704 


001120' 


32 


003126 


004767 


0000000 


33 


003132 


103404 




34 


003134 


0.1.0246 




35 


003.136 


004734 




36 


003140 


012602 




37 


003142 


000750 




38 








39 








40 








41 


003144 






42 








43 








44 








45 


003154 






46 








47 








48 








49 


003 1 64 


00016/ 


0000000 


50 








5.1 








52 








53 


003170 






54 








55 








56 








57 


003200 


00 5762 


0000000 
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. SBTTL <:).. 

Pro re- be the SET CLn commend 

I n p u t b : 
R2 - ;: CL unit number 

SETCL: CALL CKTERM 

CMP R2, #CLTO'i L 

BLO 3* 

FABQRT #EM*IUN 

ASL R2 



3$: 



; Require TERMINAL privilege for SET CL 

; Is this a valid unit?' 

j Br if ok 

t : Invalid CL unit 

; Convert unit # to word table index 



At this point* R2 contains the index into the CL unit tables. 
Begin loop to process each specified command qualifier. 

If: CALL SKPSPC ;Skip over any spaces 

Oet next character from command 

Br if hit the end of the command 

Comma separator? 

Br if yes 

Slash separator?' 

Br if not 

4$: IMC R3 ;Skip past separator 

Skip over any spaces 

Are we at the end of the command now? 
Br if yes — Error- 



'wALL 


SKPSPC 


MOVB 


<R3>, RO 


BEG 


15* 


CMPB 


RO, #', 


BEQ 


4$ 


CMPB 


RO, #'/ 


BIME 


5* 


IMC 


R3 


CALL 


SKPSPC 


TSTB 


<R3> 


BEQ 


10$ 



Process the next command qualifier 



5*: 



MOV 


#CLOPHD, R4 


CALL 


SEARCH 


BCS 


11* 


MOV 


R2, -(SP> 


CALL 


e<R4>+ 


MOV 


<SP)+, K2 


BR 


1* 



Point to option table 

Search for option keyword 

Br if cannot idenify keyword 

Save unit index 

Call routine to process qualifier 

Get back unit number index 

Go see if there are more qualifiers 



; Invalid option keyword 



; Command syntax error 



Invalid qualifier keyword 
11*: FABORT #CSIMS1 

Invalid command syntax 
10*: FABORT #EM*CSE 

End of command reached 
15*: JMP RDCMD > Finished command 

CL unit is not assigned to a line 
STCLNL: FABORT #EM*CLM > CL unit is not assigned to a line 

Turn on some option 
STCLOP: TST CL*LIX(R2> j Is this CL unit assigned to a line? 



TSKST 



T2 - 


— Keyboard SET 


Command 




CL 






58 


003204 


001771 




59 


003206 


051462 


000000G 


60 


003212 


000207 




61 








62 








63 








64 


003214 


005762 


0000000 


65 


003220 


001763 




66 


003222 


041462 


0Q0000G 


67 


003226 


000207 












69 








70 








71 


003230 


005762 


0000000 


72 


003234 


001755 




73 


003236 


004767 


0000000 


74 


003242 


01 1404 




75 


003244 


060204 




76 


003246 


010114 




77 


WW w/«U WW 






78 








79 








80 








81 


003252 


005762 


000000G 


82 


003256 


00 1 744 




83 


003260 


01 1462 


000000G 


84 


003264 


000207 




85 








86 








87 








88 


003266 


005762 


000000G 


89 


003272 


00 1 736 




90 


003274 


005062 


000000G 


91 


003300 


000207 




92 








93 








94 








95 


003302 


1 6202 


000000G 


96 


003306 


001730 




97 


003310 


004767 


000000G 


98 


003314 


1 1 6200 


0000010 


99 


003320 


042700 


0000000 


100 


003324 


05000!"; 




101 


003326 


010567 


174530 


102 


003332 


006202 




103 


003334 


010267 


174520 


104 


003340 


0.12700 


000056' 


105 


003344 


104375) 




106 


003346 


103401 




107 


003350 


00020/ 




108 








109 








110 








in 


003352 






112 








113 








114 
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f 



BEQ STCLNI. 

BIB <R4),CL*0PT<R2> 

RETURN 

Turn off some option 

CLCLOP: TST CL*LIX<R2> 

BEQ STCLNL 

BIC <R4>, CL«0PT(RS) 
RETURN 

Set a parameter value 



STCLVL: TST 

BEQ 

CALL 

MOV 

ADD 

MOV 

RETURN 



CL$LIX(R2) 
STCLNL 
ACRDEC 
<R4), R4 
R2, R4 
Rl» (R4) 



SET CL C NO 3 GRAPH 



STCLGR : TST 
BEQ 
MOV 
RETURN 

SET CL TOP 



CL*LIX<R2> 

STCLNL 

(R4), CL*WID<R2> 



CLTOP: 



TST 
BEQ 
CLR 
RETURN 



CL*LIX<R2> 
STCLNL 

CL*L.IN<R2) 



SET CL SPEED--value 



STCLSP: MOV 


CL«LIX<R2>> R2 


BEQ 


STCLNL 


CALL 


ACRSPD 


MOVB 


LMXPRM+KR2), RO 


BIC 


#LP*SPD> RO 


BIS 


RO, R5 


STCLSi: MOV 


R5> LSPEMT+4 


ASR 


R2 


MOV 


R2, LSPEMT+2 


MOV 


#LSPEMT, RO 


EMT 


375 


BCS 


2$ 


RETURN 





E r r o r o n E M T to set s p ( > v <i 
2*: FAB OR T #EM*IUN 
SET CLfi XON 



; Br if not 

; Set desired option flag 



> Is this CL unit assigned to a line? 

> Br if not 

; Reset the option 



Is this CL unit assigned to a line? 

Br if not 

Accrue decimal value 

Get address of table to store value into 

Point to correct table entry 

Store value into table 



Is this CL unit assigned to a line? 

Br if not 

Set width to <graph) or 132 (nograph) 



.; Is this CL unit assigned to a line? 

> Br i f not 

; Say we are at top of the page 



Is this CL unit assigned to a line? 

Br if not 

Accrue speed value 

Get current flags for line 

Clear speed code 

Put in parity and length flags 

Store speed code into EMT arg block 

Convert line index # to line # 

Store line # into EMT arg block 

Point to EMT arg block 

Set the speed 

Br if error 



Say invalid unit number 



< 

< 

4 
C 

4 
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115 


003362 


J 2705 


0000000 


STCLXN: 


MOV 


#CLSFCH, R5 


116 


003366 


00040.2 






BR 


CLSPFN 


117 








.» 






118 








i SET 


CLn RESE 


T 


119 








y 






120 

121 
122 


003370 


012705 


OOOOOOG 


STCLRS: 


MOV 


#CLSFRS> R5 








> 

i Do a . SPFUN 


to a CL Dili 1. 


123 








> R5 « 


. SPFUN 


code. 


124 








> 






125 


003374 


00 5762 


0000000 


CLSPFN: 


TST 


CL$L J X OAP.) 


126 


003400 


001673 






BEQ 


STCLNL 


127 


003402 


004767 


001040 




CALL 


CLLOOK 


128 


003406 








. SPFUN 


#XAREA, #1, R5, #0, 


129 


003452 


103404 






BCS 


2* 


130 


003454 








. CLOSE 


#1 


131 


003462 


000207 






RETURN 




132 


003464 






2*: 


. PURGE 


#1 


133 


003472 








F ABORT 


#EM* I UN 


134 








i 






135 








■> SE'i 


CL PARI! 


Y driver routine 


1 36 








.' 






137 


003502 


004767 


OOOOOOG 


STCLPD: 


CALL 


SKPSPC 


138 


003506 


J. fcu c w!> c / 


000075 




CMP 8 


<R3>+, #'- 


139 


003512 


001401 






BEQ 


.1* 


140 


003514 


005303 






DFC 


R3 


141 


003516 


012704 


001556' 


1*: 


MOV 


#CLPRHD.. R4 


142 


003522 


004767 


OOOOOOG 




CALL 


SETWRD 


143 


003526 


000207 






RETURN 





i Get . SPFUN code 
j Do the . SPFUN 



; Get . SPFUN code 



•Is this CL unit assigned to a line? 

> Br if not 

j Open channel 1 to CL unit 
#0, #0 ; Do the function 

> Br if error on . SPFUN 
; Close CL channel 

iilake sure channel is closed 
; Say invalid unit number 



iSkip any spaces 

j Should have an equal sign 

j Point to start of keyword 
; Point to driver table 
j Process the option 



t 

c 
I 

f 
t 

I 

< 

« 

€ 

t 
t 

€ 

< 
i 
« 
4 

I 



* 



FSKST2 ■ 


• Key be 

C L 


i3 r f J :.: ■■ c f 


Command 


1 








!■:. 








3 








A 








5 








6 








7 








a 


003530 


01 140'; 




9 


003532 


016202 


OQOOOOG 


10 


003536 


001406 




i i 


003540 


■j j ,i,3 ."•!". 


0000010 


12 


003544 


042705 


0000000 


13 


003550 


05040!'; 




14 


r\ f\ r~\ i— >T -'"*> 


000661/ 




15 


003554 






16 








17 








1 8 








19 


003564 


005004 




20 


003566 


000761 
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SET CL PARITY--CEVEN ODD NONF! 



> R2 

i R4 

STCLPR: 
STCLP1: 



i«t 



CL unit number index 

Pointer to word with parity control flags 



MOV 

MOV 

BEG 

MOVE 

BIC 

fi I S 

BR 



<R4).. R4 > Get parity flags 

CL*LIX(R2>> R2 ; Get number of line CL unit is connected to 

9* ;Dr if not assigned to a line 

LMXPRM+i <R2) ; R5 . : Get current control flags for line 

#LP*PAR ILPSODD, R5 ; Clear parity control flags 

R4> R5 > Put in new flags 

STCLS1 »Go set value for line 



9*: 



FABORT #EM*CLN 



SET CL NOPARITV 



3TCLNP: 



CLR 
DR 



R4 
STCLP 1 



CL unit is not assigned to a line 



> Clear parity flags 



t 

« 
I 

I 

I 

C 

I 

I 

f 

€ 

€ 

< 

< 

4 

4 

« 

f 

i 



jt; 
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v, i_ 



3 








4 


003570 


016202 


0000000 


5 


003574 


001421} 




6 


003576 


00476/ 


0000000 


7 


003602 


116205 


0000010 


a 


003606 


042705 


0000000 


9 


003612 


020127 


000007 


10 


003616 


00 J 0013 




1 1 


003620 


052705 


0000000 


12 


003624 


000407 




13 


003626 


020127 


000010 


14 


003632 


00 1 404 




15 


003634 






16 


003644 


00016/ 


177456 


17 


003650 







SE"I CL S3 IT 5^, 



STCLBT: 


MOV 


CL*LIX<R2>, R2 




BEG 


9$ 




CALL 


ACRDEC 




MOVB 


LMXPRM+KR2). R5 




DIC 


#LP*7BT, R5 




CMP 


Rl, #7. 




BME 


i* 




BIS 


4il D*"7T3T. »^ 




BR 


2* 


1*: 


CMP 


Rl, #8. 




BEQ 


2* 




FAB OR T 


#EM*ICL 


2*: 


JMP 


STCLS1 


9*: 


FABORT 


#EM*CLN 



i Get index for line CL unit is assigned to 

i Br if not assigned to a line 

; Accrue parameter value 

; Get current flags for line 

; Assume 8 bits wanted 

;7 bits wanted? 

i Br if not 

; B e t 7 bit flatj 

; 8 bits wanted? 

j Br i f yes 

;. Invalid character length 

> Go set value 

; CL. unit not assigned to line 
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CL 



3 
4 


003660 






6 








7 








8 


003660 


004767 


0000000 


9 








10 








12 


003664 


006202 




13 


003666 


1 0267 


1 74 1 52 


14 


003672 


0101 67 


174150 


15 


003676 


012700 


000042 ' 


16 


003702 


104375 




17 


003704 


103045 




18 








19 








20 








21 








22 


003706 


1 1 3702 


0000000 


T"3 


0037x2 


120227 


000002 


24 


003716 


001004 




25 


00372U 






26 


003730 


1 20227 


000003 


27 


003734 


00 1004 




28 


003736 






29 


003746 


120227 


000004 


30 


003752 


00 1 004 




31 


003754 






32 


003764 


.1 cvac / 


000005 


33 


003770 


00 1 004 




34 


003772 






35 


004002 


120227 


000006 


36 


004006 


00 1 004 




37 


004010 






38 








39 








40 








41 


004020 


000207 





BET CL LINE-v. 
STCLLN: 

Accrue the line number 

CALL AC R DEC 
Do the EliT to assign thi& CL 



ASR 
MOV 
MOV 
MOV 
EMT 
BCC 



R2 

R2, CLAEM'H-2 

R 1 , CLAEMT+4 

#CLAEMT, RO 

375 

20* 



3*: 



4*: 



5*: 



6*: 



iAccrue decimal value 

unit to a line and check for errors. 

; Convert CL unit index to unit # 

j Set CL unit number 

.Set time-sharing line number 

; Point to EMT argument block 

i Do the EMT 

; Br if no error 



An e r r or occurred o it t f i < • E MT . 
Print an error messiige 

MOVB ©ttERRLOC, R2 

CMPB R2, #2. 

BNE 3* 

F ABORT #EM* I UN 

CMPB R2, #3. 

BNE 4* 

F ABORT #EM*ILN 

CMPB R2, #4. 

BME 5* 

FAB OR T #EM*ACL 

CMPB R2, #5. 

BNE 6* 

FABORT #EM*TSL 

CMPB R2, #6. 

BNE 20* 

FABORT #EM$CLB 



F i n i & h e d 
:;> 0*: RETURN 



Oet EMT error code 

Invalid CL unit # ? 

Bv if not 

Invalid CL unit number 

Invalid line number? 

B v i f 1 1 o t 

Invalid line number 

Line already in use by a CL unit? 

Bv if not 

Line already being used by CL 

Is line in use by a time-sharing user? 

Br if not 

Line busy as time-sharing line 

Is this CL unit currently busy? 

Br if not 

This CL unit is busy 



c 
1 c 



TSKST2 
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3 








4 


004022 


004767 


0000000 




004026 




000017 


6 


004032 


002403 




7 


004034 


.1.10167 


0000000 


8 


004040 


000404 




9 


004042 






10 








.1 1 








12 








13 


004052 


00020/ 




14 









GET CI. VERSIQN=n 



STCLVR: CALL 
CMPB 
BLT 
MOVB 
BR 



9*: 



F i r\ i c ! , f., H 



ACRDEC 

Rl, #lb. 

9* 

Rl, CLVERB 

10* 



F ABORT #EM*IVN 



10*: 



RETURN 



; Accrue parsmeter value 

> Is this a valid argument 

> Br i f not 

■> Set version number 

; Return 

i Invalid version number 



TSKST2 
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CL 



3 
4 
5 



8 
9 
10 
1 .1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4 1 
42 
43 
44 
45 
46 
47 



SET OLn END5TR ING~ ' rtr i nci ' 



004054 
001060 
004062 
004066 
004070 



00 57 6 P. 
001002 
000167 
0.1. 0446 
010546 



0000000 

177102 



CLESTR: TST 
BNF 
JMP 

2* : MOV 
MOV 



CL$L1X<R2) 
2* 

STCLNI. 
R4, -<BP> 
R5.. ~(0P) 



•> Is this CL unit assigned to a line? 
; Br i f y e*> 

.; Br i f not 



004072 004767 0000000 



004076 
004102 



004104 
004110 
004112 
004114 
004116 
004122 
004124 
004126 



004212 
004214 
00421a 



004220 



101046 



012705 
005200 
060005 
01050''! 
062704 
.1.1 4544 
077002 
012767 



0.1 2605 
012604 
00020/ 



Accrue the string 

CALL ACRSTR /Accrue the string 

Make sure the string is not too long 



0000000 



CMP RO, #CLEQI~S 
BHI 10$ 



; Is string too long? 
; Br if yes 



0000000 



000002 



Move string over in B1..K0 to allow room for ENDPAOE value in 1st word 

; Point to start of buffer 

; Get length of string with null 

i Point past last char in string 

>Add 1 word offset 
3*: MOVB -<R5>> --<R4) ; Move string over 



000377 OOOOOOG 



MOV 


#BLKO, R5 


INC 


RO 


ADD 


RO, R5 


MOV 


R5, R4 


ADD 


#2, R4 


MOVB 


~-<R5>> -<R4) 


GOB 


RO, 3* 


MOV 


#377.. BLKO 



004134 004767 000306 



004 1 40 

004204 



Do lookup on CL unit 
CALL CLLOOK 



; Set value for ENDPAGE <377=no change) 



; Do lookup on channel 1 to CL unit 



Perform the . SPFUN to set the ENDSTR ING 

. SPFUN #XAREA, #1 , #CLSFEP, #BLK0, #10. , #0 
.CLOSE #1 ; Close the channel 



F i n i s h e ci 



MOV 
MOV 
RETURN 



(SP)+, R5 
<SP)+, R4 



String is too long 
10*: FAB OR T #EM*S1 



String too long 



TSKST2 
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L- t_ 






3 

4 00 4230 

5 004234 

6 004236 

7 004242 

8 004246 
9 

10 



016201 
00 1 002 
00016/ 
00 4767 
000207 



0000000 

1 76726 
000002 



12 








13 








14 








15 








16 








17 








IS 








19 


004250 


010446 




20 


004252 


010546 




21 








22 








23 








24 


004254 


016104 


OOOOOOG 


25 


004260 


001004 




26 


004262 






27 








28 








29 








30 


004272 


004767 


OOOOOOG 


31 


004276 


122327 


000075 


32 


004302 


001406 




33 


004304 


126327 


177777 


34 


004312 


00 1 4 1 3 




35 


004314 


005303 




36 


004316 


000447 




37 


004320 


004767 


OOOOOOG 


38 


004324 


122327 


000050 


39 


004330 


00 1 404 




40 


004332 






41 








42 








43 








44 


004342 


005005 




4 'L< 

46 








47 








48 


004344 


004767 


OOOOOOG 


49 


004350 


122327 


000051 


50 


004354 


001430 




51 

52 


004356 


005303 




53 
54 








55 


004360 


\J c. w -J c'~ -• 


OOOOOOG 


56 


004364 


1 03404 




57 


(')<"' il "■!»..•', 







SET CLn TRANSLATE" <ext= in t> ext^int, . . . ) 



CLTRMS: MOV 
BNE 
JMP 

2*: CALL 

RETURN 



CL$LIX(R2>, Rl 

2* 

STCLNL 

PRSTRN 



Is this CL unit assigned to a line? 

Br i f yes 

Br if not 

Parse the translate qualifier 



» 'r- t7. 1~- r± +• vr> n, v\ f 1 .-* +• r\ unsl i i^-l nT fl £ 4" h " ■£ rt T 1 - m • 

TRANSLATED ext=int> ext=int, . . . ) 
and store the translation table for the line. 

Inputs: 
Rl - Line index number of line whose translation table is being set up. 

R3 -- Pointer past end of keyword 



PRSTRN: MOV 
MOV 



R4, -<SP) 
R5, -<SP> 



> Get pointer to translation table area for this line 

i 

MOV LCXTBL<R1),R4 .Get pointer to translation table for line 

BNE 7% ■> Br if there is one 

FABORT #EM*TMT ; No translation table allocated 



See if equal sign and open paren follow keyword 



7$: 



1 * : 



CALL 


SKPSPC 


CMPB 


<R3)+, #'=■• 


BEQ 


1* 


CMPB 


-I (R3), #'< 


BEQ 


2* 


DEC 


R3 


BR 


3* 


CALL 


SKPSPC 


CMPB 


<R3)+» #'< 


BEQ 


2* 



Skip over any spaces 

Does equal sign follow keyword? 

Br if yes 

Did user omit equal sign? 

Br if yes 

Point back to character 

Clear the translation table 

Skip more spaces 

Should have open paren 

Br if got open paren 

Invalid syntax 



FABORT #EM*CSE 

; Berlin to accrue each value pair 

.» 

2*: CLR R5 ; Count pairs in R5 

; See if we have reached the end of the list 



5* : 



CALL 


SKPSPC 


CMPB 


<R3)+, #' ) 


BEQ 


3$ 


DEC 


R3 



Skip any spaces 

At end of the listT-' 

Br i f yes 

Point back to character 



See if we have room for another value 



CMP R5, #MXTT0T 
BLO 4$ 
FABORT #EM*TMT 



Room for another value? 

Br if yes 

Too many translation values 



i 
f 
« 

< 

i 
i 

€ 

4 
€ 

< 

i 
i 

« 

t 
< 
i 

< 

i 



TSKST2 • 


- Kst,ibe 

( ■ L 


iard SET 


Command 


58 


004376 


00520') 




••t t 

60 








61 








62 


00 4*00 


004767 


0000000 


63 


004 404 


.1.1 0.1. 6-''! 


000001 


M 








65 








66 








67 


004410 


004767 


000000G 


6B 


0044 1 4 


1 1 Oil 4 




69 


004-116 


00572'! 




70 


004420 


004 76/ 


0000000 


71 


004424 




000054 


72 


0044 30 


001745 




_j,,.„ 


004432 


005303 




74 


004434 


000743 




75 








76 








77 








73 


004436 


005014 




79 








80 








B J 








82 


004440 


012605 




S3 


004442 


01 £604 




84 


0044 44 


000207 
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4*: 



INC R5 
Accrue the external value 



CALL 
MDVB 



AC R OCT 

HI, KR4) 



Count another value 



; Accrue the external value 

i Store in high-order byte of word 



3* 



Accrue the internal value- 
Accrue the internal value 
Store in low-order byte of word 
Point to next word 
Skip any spaces 
Comma separator? 
13 t if yes 

Point back to char we skipped 
Loop and get rest of list 

We have reached the end of the list 

CLR (R4) ; Store a zero to terminate the list 

F i n i h h e d 



CALL 


ACROCT 


MftUO 




TST 


(R4) + 


CALL 


SKPSPC 


CNPB 


<R3)+, #', 


B LO- 


5* 


DE C 


R3 


im 


5* 



MOO 
MOV 
RETURN 



<SP>+, R5 
(SP)+, R/| 



c 

i 



< 
€ 
< 
4 
I 
« 

€ 

i 

i 



TSKST2 
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CL 
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c 

€ 



4 








5 








l-j 








7 








8 








9 








10 

f 1 


004446 


010246 




! E 

12 








1 3 








14 


004450 


006202 




15 


004452 


020227 


000007 


16 


004456 


101405 




17 


004460 


162702 


000010 


IS 


004464 


066702 


173326 


19 


004470 


000402 




20 


004 472 


066702 


173316 


21 


004 476 


010267 


.1.73302 


22 


004502 






23 


004522 


103402 




24 








2D 








26 








27 


00 ''524 


12602 




23 


0041526 


000207 




29 








30 








31 








32 


004530 







Perform a lookup on channel 1 to a specified CL unit. 

I n p u t b : 
R2 • = CI... unit index n timb er . 

Outputs: 
Channel 1 opened to CL unit. 

CLLOOK : MOV R2< - ( 3P ) 

C o n e t r u c t L device n a m e 

Get cl unit number 

Should this be a CL or Ci unit? 

Br if CL 

Remove Ci unit bias 

Add "CIO" to form device name 

2*: ADD R5QCL0, R2 ;Add "CLO" to form device name 
tt»: MOV R2, CLDEV i Save device name 

Open channel to CL unit 
Br if error on lookup 



AGR 


R2 ; 


CMP 


R2.. #7. ; 


BIOS 


2* i 


SUB 


#8. , R2 > 


ADD 


R 50C10, R2 i 


BR 


1* 


ADD 


R5QCL0, R2 i 


MOV 


R2, CLDEV i 


. LOOKUP 


#XAREA, #1, #CLDEV; 


BOB 


10$ ■> 


: in:t shed 




MOV 


(SP> +, R2 


RETURN 





Ere or on lookup to CL unit 
10*: FAB OR T #EM*IUN 



; Invalid unit number 



1 
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. SUTTL 



Host 



i.3 

4 



SET !l(JSr/DTE-n 

Cross connect t ime- shar int line with CL unit. 



004540 004767 OOOOOOG 



9 
10 
i 1 
12 

i :j 

14 
15 
J 6 
1 7 
IS 
19 
oo 

21 
22 

T-J 

24 

25 
26 

c / 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4 J. 
42 
A 3 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004544 
004552 
004556 



012767 
012704 
004767 



004562 
004566 
004 572 
004574 
004604 
004606 
0046 12 
004616 
004620 
004630 
004632 
004636 
004640 
004642 
004646 
004650 



004660 
004664 
004672 
004700 
004704 



004706 
004714 
004722 
004730 



00 & 7 34 
004 736 
004742 
001746 

004 75,,: 
004754 
004 ?5o 



01 6705 
020527 
103404 

006305 

01056/ 
00 5765 
00100''! 

010500 
004767 
006300 
001407 
120067 
001404 



116701 
016761 
016 761 
1. 2700 
104375 



016761 
016761 

000167 



0.1.0246 

004767 
004767 
122327 
00 1 40 .1 
005303 
0.16700 



SETHST: CALL CKTERM 
Do command scanning 



177777 173302 
001604 ' 
0000000 



MOO #-1,71X01+4 
MQU #HOSTHD; R4 
CALL SCN0P8 



; Require TERMINAL privilege for SET HOST 



; Initially set CL unit to -1 
■ Point to o n tion driver table 
; Process the command options 



Check to make sure the CL unit is assigned to a line and is not 
in use by another usee. 



1 73266 
0000000 



173242 
0000000 



0000000 



0000000 



1*: 



2* : 



Get CL unit number 

Is this a valid unit number 

Br if yes 

Invalid CL unit number 

Convert to CL index number 

Is this CL unit connected to a line? 

B r if yes 

Not connected to line 

Oet CL unit index 

See if CL unit in use by another job 

Any job using CL unit? 

Br if not 

Is it our job? 

Br if yes 

This CL unit is busy 



0000000 

173110 OOOOOOG 
173104 0000000 
000050 ' 



0000000 0000000 
0000020 000000G 

OOOOOOG 



MOV TTXCL+4, R5 

CMP R5, #CLT01L 

BLO 1$ 

FAB OR T #EM* I UN 

AGL R5 

MOV R5, TTXCI s-4 

TST CL$LIX(R5) 

BMP 2* 

FABORT #EM*CLN 

MOV R5, RO 

CALL CKCLUS 

ASL RO 

BEG 3* 

CMPB RO, CORUSR 

BEQ 3* 

FABORT #EM*CLB 

P e r i • o r m the connection 

3$: MOVB CORUSR, Ri > Get our job index number 

MOV R50HST, LPRG1 <R1 >i Set name of running program to "*HOST*" 

MOV R 50HST+2, LPRG2 < R 1 ) 

MOV #TTXCL, RO ; Point to EMT argument block 

EMT 375 iHake the cross connection 

Print message saying cross connection broken 

MOV R5CKMN, LPR01 <RI >; Reset program name to KMON 

MOV R 50KMN+2. LPRG2 < R 1 ) 

. PRINT #TM*XHK 

JMP RDCMD i Finished with command 

Process the /PORT=tldn qualifier 



« 

I 
I 
I 
f 
€ 

C 

< 
i 
€ 
€ 



OOOOOOG 
OOOOOOG 
000072 



OOOOOOG 



, ISTPRT: NOV 
CALL 
CALL 
CMPB 
BEG 
DEC 

1 * : MOV 



R2, --<3P> 

CHKEG 

GTRD50 

<R3)+, #': 

1* 

R3 

R50BUF, RO 



; Equal sign should follow qualifier name 
; Accrue the device name 

> Colon specified with device name? 

> Br if yes 

.; Backup pointer 

.; Get accrued device name 



TSKST2 
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t 

€ 



58 

rrn 

60 

61 
62 
63 
64 
65 
66 
67 

69 

70 00502 



001-762 
004 766 
004770 
004774 
005000 
005002 
005006 
005010 
005012 



00476/ 
10340;..' 
1 6200 
004767 
103404 
010067 
012602 
000207 



0000000 

000000G 
0000000 

173046 



.10* 



010146 



71 

72 
73 

74 005024 004767 000000-3 

75 005030 010167 173020 

76 005034 01260.1. 

77 005036 000207 
78 

79 00000. ! 

F r v o r- s detect e d : 



CALL 


ASNSRC 


BCS 


2* 


MOV 


AT*DEVCR2), RO 


CALL 


CHKCLU 


BCS 


10$ 


MOV 


RO, TTXCL+4 


MOV 


< SP ) +, R2 


RETURN 




FABORT 


#EM*CLX 



> See if this is a logical device name 

> Br if not logical name 

; Get physical device name 

; Convert CL and CI names to unit numbers 

; Br if not CL or CI unit 

; Set CL unit number 



j Port unit must be CL or CI unit 



P-rnrPinc +• h ra /llTC-n OCT Ufl«'I nualitiar 



HSTDTfc : MOV R 1 , - < SP ) 

Accrue the CL unit number 



CALL 
MOV 
MOV 
RETURN 

. END 



ACRDEC 

R 1 , TTXCL+4 

(SP)+, Rl 



«■## Assembler 



t i s t :i t <■> 



Wor k file read s : 

Work file writes: 

Size of work file: 11096 Words 

Size of core pool: 17920 Words 

p e r a 1 1 n g s y s t e m : R 7 ■ J 1 



< 47 Panes) 
( 70 Pages) 



klapsed time: 00:01:20.06 

DK: TSKST2.. LP: TSKST2=DK: TSKST2. MAC/C/N: SYM 



; Accrue the CL unit number 

; Store CL unit index in EMT arg block 



« 

< 

< 
€ 

< 

4 
« 
< 
I 
I 
< 
i 



TSKST2 


•- Key boar 


d SET ( 


• ommand MACRO V05. 04 


" Cross r 


(? f t? T t? ?"! C P t 


3 b 1 e < < 


:RE.F 905. 04) 


4 ♦iSTLO 


i ■■•"'";'■! 






♦8B I T 


i -- 1 1 I 


5 -.(V 


5-20 5-46 


♦AUTO 


1-87 


5-7 


16-6 19 5 


4 f.CAR UP 


1-85 






UCCLRN 


.1 - 86 






♦CFABT 


1-106 






* ♦CIALL 


1-112 






♦CFCCL 


1-112 






SCFDCC 


1 112 






* ♦CFOPN 


1-1 Iff 






*CFSOT 


1-110 






♦CHACT 


1 -6 1 






i ♦CL TST 


1 - 96 






*ctrlc 


1 -■■ x 04 






♦CTRLD 


1--1S4 






< ♦CTRLO 


1-61 






♦CTRL8 


1-91 






♦DBKMN 


1 -84 






1 *DEAD 


1 - 1 5S 


5-9 


5-10 15 14 


♦DEBUG 


1-155 






♦DEFER 


1-124 


5- J 2 


5-13 


t ♦DETCH 


1-89 






♦DIBOL 


1-73 






♦DILUP 


1-108 


7 -.16 


14-47 15-6 


i *1)ISCN 


1-90 






*DOOFF 


1 - I 1 4 






♦PUPRN 


1-109 






€ ♦ECHO 


X X .i. j. 


5- t 7 


5 18 


♦EMTTR 


1-95 






♦FORM 


1-110 


5-21 


5-22 


< ♦FORMG 


1 - 1 1 2 


5-28 


5-24 


♦HARD 


1 - 1 53 






♦HJTTY 


1-72 






€ * INC OR 


1 - 1 28 






♦JNDAE 


1 - 1 59 






♦INDDF 


1-157 






4 ♦1NDRN 


1-157 






♦ IN.TT 


1-1 5S 






♦1NKMN 


1 - 1 o ••* 






4 ♦KED 


1 - 1 28 






♦KINIT 


1-68 






♦LC 


1-1 1 1 


5-32 


5-33 


< ♦LOFCF 


1 - 203 






*MLOCK 


1 ~ 77 






♦NO IN 


1 -72 






C ♦WO I NT 


1-204 






♦NOWTT 


1-72 


23-J25 


23-13.1 


♦PAGE 


1-1 11 


5-35 


5-36 


4 ♦PHONE 


1-158 


5-89 


5-40 


♦PRGLK 


1-87 






♦GTSET 


1-133 


23-89 


23-106 


< ♦GUIET 


1-125 


23-90 


23-107 


♦RMIOP 


1-205 






♦SCOPE 


1-111 


5-44 


23- HB 


4 ♦SGALL 


i-124 






♦SGHIQ 


1-123 







5-73 5-74 



19-6 23-137 



I 
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Cross reference table (CREF V05. 04 > 

$80110 1-123 

♦SGGO 1-105 

US0Q1 1-123 

$SGQ1A 1-123 

*SGQ1B 1-123 

*S0Q1C 1-123 

«S&Q2 1-123 

*SGG3 1-105 

♦SLKED 1 -82 

tSLLET 1 -202 

♦SL.ON 1-202 23-16 23-40 23-62 23-70 23-79 23-119 

*SLTTY 1-202 

♦SNWTT 1-155 53-i'c" 

♦SPLJB 1-91 

♦8T5N0 161 5-AV 

*SUCF 1-113 

♦SYSPS 1-160 5-1/1 5-52 5 53 5 54 5-55 5 56 

*T/SB 1-110 

*TAPE 1-153 

♦TRCO 1-133 

♦TTGAG 1-118 5-25 5-26 

*UCLCF 1-119 

fUCLCL 1-121 

*UCLCM 1-12 1 

«UCLRN 1-120 

*UKMON 1-85 

*VNOTT 1-43 



23 


-40 


23 


-130 


5- 


•48 


5- 


-52 


5' 


-58 


5- 


-60 



c 

« 
I 

1 

I 
« 

< 
t 



€ *VTESC 1--31 

♦WILD 1-134 

...VI 8-25 8-28 23-93 23-96 23-110 23-113 24-128 24-130 24-130 24-132 29-36 29-37 

€ 29-37 31-22 31-22 31-22 32-46 i 

. . . V2 24-128 24-128 24-128 24-128# 24-128# 24-128* 24-130 24-130* 24-132 24-132* 29-36 29-36 
29-36 29-36* 29-36* 29-36* 29-37 29-37* 81-22 31-22 31-22* 31-22* 

ABRTAD 1-48 € 

ABRTCD 1-48 

ABRTCF 1-165 

ACRDEC 1-173 7-3 8-9 14-28 21-7 24-73 26-6 27-8 28-4 32-74 I 



ACRFIL 1-172 

ACRFN 1-165 

ACROCT 1-175 30-62 30-67 

ACRSPD 1-76 16-5 24-97 

ACRSTR 1-37 9-J,.'3 29-12 

ACRTXT 1-39 

AD**SZ 1-64 

AD^DVU 1-64 

AD* JOB 1-64 

ADM3A 1-148 23-69 

ADM3FL 1-149 23-68 

ADM3N0 1-151 23 67 

AF$DBG 1-204 

AF*HIE 1-204 

AF*IOP 1-205 

AF*MEM 1-4 7 

AF*NOI 1-204 

AF$NOW 1-47 

Ah*PLK 1-204 



4 

I 

1 
I 
« 
I 
( 



t 

\ 


TSKST2 
Cross t 

AF$SCA 

ALCDEV 

ALCEND 

ALCHDl 

ALCHD2 

ALCTBL 

ALDBLK 

ALDEX 

AIFN 

AMI? OPT 

AR$*SZ 

AR*CNT 

AR$CON 

AR$CPH 

AR$CPL 

AR$DMY 

AR*PRG 

AR*PRJ 

ARUUNM 

ARNRPB 

ASDEX 

ASKLNM 

ASNHDl 

ASNHD2 

ASNOVF 

ASNSRC 

AT*DEV 

AUTHFN 

BADCMD 

BADPMT 

BADPRI 

BADSAV 

BASMAP 

BDFNAM 

BDLGOP 

BDLIN 

BELL 

BLANK 


— Keyboi 
eferenct 

i - v ? 

1-30 
1-63 

1 -60 
1-60 
1 -63 
1-138 

1 - 1 99 

1 - 1 73 

1 -202 

1-201 

1-201 

1-201 

1-20 J 

1-202 

1-201 

1-201 

1-201 

1-202 

1-170 

1-169 

1-182 

1-182 

1 - 1 70 

1 - 1 37 

1-56 

1-192 

1-169 

1-176 

1-176 

1-169 

1-142 

1-172 

1 - 1 77 

1-1 90 

2-7# 

2~6# 


irci SET Command MACRO 
table (CREF V05. 04) 

1 - .1 ea 
1 - ! HA 

1-195 
32-58 
32~60 

8-22 


V05. 04 
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BLKO 


1 - 1 68 


9-20 29-21 


29-28* 


29-36 










BLKWDS 


2-1 1# 
















BOTDEV 


1-103 
















BOTUNI 


1-103 
















BSD1 


16-16 


17-10 18-14 


19-10 


23-27 


23-29# 


23-97 


23-114 




BS02 


23-9 


23-l?0*i 23-41 


23-48 


23-55 


23-63 


23-71 


23-80 




C, CSW 


1 - .1 1 5 
















C. DEVQ 


1-11 b 
















C. SBLK 


1-115 
















C. USED 


1 —4 t 
















CALUCL 


1-18:1 
















CASCBR 


1-97 
















C ASC UP 


1 -97 
















CASTBR 


1 -97 
















CASTBW 


1-97 
















CASTRO 


.1 -98 
















CAST WO 


1 -98 
















CCLNAM 


1 -■ J 96 















23-120 23-147 23-155 



TSKST2 


- - K e y b o a r 


d SE'I" Command MA 


% Cross reference t 


able CORES 


V05. 04 


f CCLSAV 


1-94 






CD$*SZ 


1-11 6 






CD**UB 


1-116 






1 CD*BAS 


1 - .1 1 6 






CD*DVU 


1-116 






CD*JOB 


1-116 






< CD*NAM 


1-116 






CD$TOP 


1-133 






CDBUF 


1 -38 






f CDQET 


1 ~;"jpj 






CF*IND 


1 - 1 59 






CF*QUT 


1 - 1 59 


23-95 


23— 1 1 P 


< CFABLV 


1-160 






CFBLK 


1-125 






CFBUF 


1-94 






i CFCHAN 


1-124 






CFEND 


1-94 






CFHOLD 


1-1 32 






< CFIND 


.1-1.14 






CFLFL4 


1-119 






CFWEST 


1-117 






< CFPNT 


1-125 






CFSEND 


1-118 






CFSP 


1 - .1 1 8 






I CFSPND 


1-131 






CFSTK 


1-68 






CFSTS 


1-159 


23-73 


28-96 


i CHAIN 


1-104 






CHKALC 


1-11.1 






CHKCLU 


1 -36 


32-61 




€ CHKDEV 


1-196 






CHKDLM 


1-186 






CHKEQ 


1-45 


9-9 


'-in — i^n 

wfT i./£.. 


€ CHKMNT 


1-171 






CHKMTX 


1-171 






CHKTTD 


1-194 






1 CHNSIZ 


1-41 






C.TNDAT 


1-141 






CINFLG 


1-48 






i CKACOJ 


1-45 


12-1.1 


13-19 


CKCLUS 


1-37 


32-2 / 




CKPRIV 


1-173 


1 5-4 




< CKSYPV 


1-45 






CKTERM 


1-174 


14-40 


16-4 




23-151 


24-8 


vJJi?. ~"0 


i CL*COL 


1-66 






CLSEPN 


1-41 


5-74 




CL.*EPS 


1-4.1 






i CL*LEN 


1-101 


5-1 10 




CL4LIN 


1-101 


24-90* 




CL*LIX 


1-62 
32-23 


24-57 


24-64 


CL*OPT 


1-100 


24-59 n- 


24-66 k- 


CL*RQH 


1 -63 






t CL*SKP 


1-101 


5-131 




CL*WID 


1-101 


5-132 


24-83* 
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CL*WQH 


1-63 












CL*XLN 


1-37 












CLAEMT 


4~24# 


27-1 3 «• 


27-14* 


27 


-15 




CLCLOP 


5-91 


5-93 


5-97 


5 


•99 


5-101 




«=; ! O r "< 


0-123 


5-124 


5 


-127 


24 -64# 


CLDEV 


4-5# 


31-2.1 k 


31-22 








CLDEVX 


1 - 1 39 












CLEOFS 


1-41 


29-16 










CLESTR 


5-95 


29-4# 










CLFREE 


i ~rv7 












CLLINE 


1-57 












CLLOOK 


24-127 


29-32 


31-10*1 








CLOPHD 


5-8811 


24-31 










CLOT I R 


1 — i. >■-; 












CLPRHD 


5-125 


S--140# 


24-141 








CLRDTR 


5-16 


lS-6# 










CLRPRV 


1-43 


6-14 










CLRTTB 


5-13 
5-73 


5-10 

5-74 


5-20 
23-1 52# 


5- 


-22 


5-24 


CLRTTP 


5-7 


5-K) 


5-40 


5- 


- r »2 


5-54 


CLSFCH 


1 -69 


24-115 










CLSFEP 


1-42 


29- -36 


29-36 








CLSFRS 


1-34 


24 120 










CLSFSP 


1-98 












CLSPFN 


24-116 


24— A 25# 










CLTOP 


5-1 28 


24-GtW 










CLTOTL 


1 -98 


24-9 


32-18 








CLTRNS 


5-129 


30-411 










CLUNIT 


1-57 












CLVERS 


1-57 


28-7+:- 










CMDBUF 


1 - 1 64 


1-101 










CMDCCL 


1-196 












CMDDSN 


1-29 












CMDFRM 


1-29 












CMDHD 


1 -28 












CMDMEM 


1-30 












CMPOFF 


1-28 












CMDSET 


1 -30 












CMDSHO 


1-30 












CMDUSE 


1-30 












CMDWHO 


1-30 












C0*8BT 


1-115 


5-120 


5-121 


5 


122 


5-123 


CO$BNI 


1-100 


5-.1 16 


5-117 








CO*BNO 


1 -• 1 00 


5- J JO 


5-1.19 








CO$CR 


1-99 


5-70 


5-91 








CO*CTL 


1-99 


5-100 


5-109 








COSDEF 


1-66 












CO*DTR 


1-9S 


Cj ..»*.,)' i 


5-93 








CO*FF 


1-99 


5-96 


5-97 


5 


■98 


5 ~9<? 


CO*FFO 


1-99 


5-100 


5-10 5 








CO*LC 


1-99 


5-104 


5-105 








CO*LFI 


1-100 


5-1 1 1. 


5-112 








CO$LFO 


i - 1 uu 


5-1 13 


5-114 








COSTAB 


I „< ? 9 


5-106 


5-107 








COAD 


1-107 


1-100 










COAF 


1 -200 













5-105 5 107 5-109 5-112 5-114 5-117 5-119 



5-26 5-33 5-36 5-46 5-48 5-58 5-60 

5-56 23 151# 



5-124 5 127 



< 
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COAL 


1-1 87 


1 - .! 80 










C0I...00 


1-18.1 












COMMA 


2-1 0# 












CONF02 


1 - 62 












CONFIG 


1 - 1 1 3 












CORUSR 


1-61 


6~ 10 


10-15 


1 1 ~22 


13-14 


23-20 


CPFAUT 


4-1 4# 


5-163 


1 1 -29 








CPFLAG 


4-8# 


6-18K- 


9-65* 


1 1 -29 


1 3-8 


13-25 


CPFRES 


4-13# 


5- 1 62 


13-8 


1 3-25 






■M » t w/ w w 


A ._ 1 '"M+ 

1 .1. 1— 11 


5-161 


13-8 








CPNAME 


4-1 9# 


6-1 1* 


9-10 


9-4 1 


9-48 


10-9 


CPOPHD 


5- 1 56# 


6- .1 8 










CPPFLG 


5-161 


5-162 


5-163 


9--65# 






CPPID 


4-17# 


6-1 0* 


7-1.8* 


10-14 


1 1 22 


12-10 


CPPNAM 


5-159 


9_4:}j, 










CPPPID 


5-158 


7-4# 










CPPPRI 


5-160 


8-4 # 










CPPRIO 


4~18# 


6-1 2 k 


8-17* 


12-8 


12-16 


12-17 


CPSFLG 


O ts.O 


13-4# 










CPSNAM 


6 cr-3 


10~4# 










CPSPRI 


6-24 


12-4# 










CPSPRV 


6-25 


1 1 -4# 










CPUAH 


i-isi 












CPUAL 


1-181 












CR 


2-5# 












CRLF 


1-176 


8-20 










CS*RON 


1-80 












CSHALC 


1-103 












CSHDEV 


1 - 1 08 












CSHDVN 


1-1 OB 












CSHHD 


1 - 1 63 












CSHMSO 


1-203 












CSHSI2 


J. X s r \-J 












CSIMS1 


1-175 


24-41 










CSIMS2 


1-173 












CSXMS4 


1-195 












CTRLTT 


1-102 












CURMTX 


1-186 












CURPRM 


1 - 1 30 












CVDVNM 


1-183 












CVTTAB 


1-164 












CVTUC 


1-163 












CW*50H 


1-1.13 












CW$PRO 


1-62 












CXTBAS 


1-107 












CXTPAG 


1-79 












CXTRMN 


1-4.1 












CXTWDS 


1-107 












DATTIM 


.1 -29 












DCCRD 


1-137 












DCCWR 


1 - 1 3? 












DCTRD 


1 - 1 37 












DCTWR 


1 - 1 37 












DEADEV 


1-171 












DELSPC 


1-185 












DETARG 


1-200 













?3~S5 



23-91 



23-102 



23-108 



32-30 



32-36 



10-21 



13 13 
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DETHD 


1-200 










DETTXT 


1-179 










DEVHD1 


1-182 










DEVIDL 


1-187 


1-107 


1-188 






DEVUNT 


1-174 










DFJMEM 


1-68 










DIABFL 


1-125 


23-77 








DIABLO 


1-147 


23-78 








DIABNG 


1-126 


23-76 








DIVIDE 


1 1 BO 










DIVSOR 


1-193 










DJABMS 


1-19:1 










DKASHD 


1 - 59 










DKSAV 


1 - 1 64 










DLCEMT 


1-30 










DLMSG 


1-191 










DLTXT 


1 - 1 78 










DMT ALL 


1-191 










DMTARG 


1-170 










DMTSUB 


1-196 










DOASGN 


1-85 








< 


DOR UN 
DOSTOP 


1-29 

1-192 










DTRCOM 


18-5 


18-7# 






i 


DTREMT 
DVSHHl 
DVSHH2 


4~47# 

1-59 
1-59 


18-4* 


18-6* 


1 8-9* 


f 


DVSHH3 
DVSTAT 
DZTXT 


1-59 

1-76 
1-198 








4 


EDIT 
EDTFIL 


1-73 
1-184 










EM*ACL 


1-54 


27-31 






4 


EM*CAP 
EM*CIP 


1-44 

1-53 


1 1—63 








EMSCLB 


1-54 


27-37 


32-32 






EM*CLN 


1-53 


24-53 


25-15 


26-17 




EM*CLU 


1-34 


1 5-22 








EM*CLX 


1 -36 


32-66 








EMSCNO 


1-44 


10-34 








EMSCPO 


1-44 


1.1-59 








EM*CSE 


1-70 


24-45 


30-40 






EM*HNI 


1-68 










EM*ICL 


1-52 


21-15 


26-15 






EMSIDR 


1-42 


1 3-38 








EM*ILN 


1-53 


1-54 


7-27 


14 36 




EM* I ST 


1-42 










EM* I UN 


1-53 


24- .11 


24-111 


24-133 




EMSIVN 


1-53 


28-9 








EMSLAS 


1-34 


15-10 








EMSLFD 


1-34 


15-16 








EMSNAD 


1-46 










EM*NPD 


1-53 










EM*NPR 


1-45 


10-35 








EMSNSF 


1-53 










EM*NSL 


1-54 
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-7 
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32-25 



16-20 
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EM*NUK 


1-06 










EM*OPR 


1--36 










EM$PTA 


1-36 










EM$PTU 


1-36 










EM*SLT 


1-54 










EM*SLW 


1-54 










EM$SPL 


1-39 










EM* STL 


1-42 


9- 


-55 


29- 


-47 


EM$TMT 


.1-34 




•26 


30- 


-57 


EM*TSL 


1 — R4 


07 - 


-34 






EM*UIO 


1 — 5 5 










EM*WCO 


1-40 










EM*WC 1 


1 -40 










EM*WC2 


1-40 










EM*WC3 


1-40 










EM*WCM 


1-40 










ERRLOC 


1-67 


27- 


-22 






ERRSEV 


1 - 1 34 










EBC 


1-82 










FC*CDX 


1-163 










FCSLNK 


1-163 










FD*NAM 


1-163 










FF 


2-9# 










FILNAM 


1-165 


1- 


- J 66 






FKILL 


1-165 


7~ 


-27 


7 


-28 




1 6-20 


17- 


•11 


18- 


-15 




26-15 


26- 


-17 


27- 


-25 




vJ i \3t£ 




-20 


32- 


-25 


FPRINT 


1-165 


8- 


-22 


9- 


-55 


FSTDL 


1-89 










FSTIOL 


1-62 


1- 


•79 






GAGMSG 


1-190 










GEIMTQP 


1-103 










GETKCH 


1 - 77 










GRT1 


1-144 










GTRD50 


.1-170 


32 


53 






H. CSR 


1-76 










H. VEC 


1-76 










HANBSY 


1-175 










HANCHN 


1-64 










HANENT 


1-75 










HANPAR 


1-76 










HANS I Z 


1-75 










HAZEL 


1 -77 


23- 


61 






HAZLFL 


1-77 


23- 


60 






HAZLNO 


1-77 


23- 


59 






HI MAP 


1-142 










HIPRI 


1-176 










HNBUF 


1 - 1 74 










HOSTHD 


5-14S+I 


32-- 


.1. 1 






HSTDTE 


5-149 


5- 


.1 50 


32- 


-704J 


HSTPRT 


5-151 


32- 


51# 






HUPARG 


1-195 










II**SZ 


1-46 










II«FLG 


1-46 










IKNAM 


1 -46 











10-34 10-35 11-59 1 1 63 13-38 14-36 15-10 15-16 15-22 

21-15 23-139 24-11 24-41 24-45 24-53 24-111 24-133 25-15 

27-28 27-31 27-34 27-37 28-9 29-47 30-26 30-40 30-57 

32—32 32-66 
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II*NPV 


1-43 




I1*PRV 


1-48 




IIBUF 


1-46 




ILLCMD 


1 - 1 7 1 




ILSW2 


1-83 


14-49 


INSACT 


1 •- 1 57 




IN*CMD 


1-157 




IN$CIMT 


1-157 




INDACT 


1 - 1 67 




INDERR 


1 -- 1 06 




INDSAV 


1-157 




INDSTA 


1-106 




INFOMT 


1-171 




INGADR 


1-46 




IN6EMT 


1-46 




INSTBL 


1 -46 




INSTBN 


1 -47 




INVDAT 


1-200 




IMVDEV 


1-199 




INVEC 


1-158 




INVLDM 


1-195 




INVLDN 


1-172 




INVOPT 


1-165 


1-1 '/l 


IMVTIM 


1-191 




IOABFL 


1-61 




ITRMTP 


1-159 


23-20* 


JCXPGS 


1-142 




JCXSMS 


1-198 




JPWDEV 


1 -39 




JPWFLG 


1 -39 




JPWTYP 


1 -39 




JSTKND 


1 - 1 02 




JSWLOC 


1 -67 




K52 


1-73 




KBMSG 


1-180 




KBTX 


1-184 




KCSIBF 


1-169 




KCSIMS 


1 - 1 70 




KDOCIN 


i -28 




KED 


1-73 




KILEMT 


1-192 




KL3CLR 


1-87 




KL4CLR 


1-127 




KMNBAS 


1. 1 54 




KMNCHN 


1 -94 




KMNHI 


1-78 




KMNNAM 


1-196 




KMNPGS 


1 -79 




KMNSTK 


1 ~ 79 




KMNSTR 


1-79 




KMNTOP 


1-79 




KMPRMT 


1-138 




L 


5-5 


5-'.># 




5-11 


5-1 IS 




5-17 


5-r/# 




5-23 


5~23# 



23-32* 



1-186 



5-6 
5-12 
5- IB 
5-24 



5 6# 


5-7 


5-7# 


5 8 


5-8# 


5-9 


5-9# 


5-10 


5-10# 


5-12# 


5- 1 3 


5-.l3# 


5-14 


5-14# 


5-15 


5-1 5# 


5-16 


5-16# 


5-18# 


5 ■■•19 


5-1 9# 


5 -20 


5-20# 


5-21 


5-2 1# 


5-22 


5-22# 


5--24# 


5-25 


5---P5# 


5-26 


5-26# 


5-27 


5~27# 


5-28 


5-28# 



M 
1 



TSKST2 


— KeyboaT 
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V05. 04 


Monday 2 


Cross r 


e F e r ence \ 


able <CREF 


V05. 04) 










5-29# 


5-30 


5-'30# 


5-31 




5-35 




5-36 


5 36# 


5-37 




5-41 


5-4 1 # 


5-42 


5~42# 


5-43 




5-47 


5 --/!/'# 


5-48 


5-48# 


5-49 




5-53 


5-53# 


5-54 


5-54# 


5-55 




5-59 


5-59# 


5-60 


5™60# 


5-61 




5-65 


5-65# 


5-66 


5-66# 


5-67 




5-71 


5-7 1# 


5-72 


5 -72# 


5-73 




5-82 


5-B2# 


5-89 


5-89# 


5-90 




5— 94 


5~94« 


5-95 


5-954* 


Bj — OjS. 




5-100 


5~100# 


5-101 


5-101# 


5-102 




5-106 


5-1 06# 


5-107 


5-107# 


5-108 




5-112 


5-1 12# 


5-113 


5-1 13# 


5-114 




5-1 IS 


5- 1 1 8# 


5-119 


5-1 19# 


5-120 




5-124 


5-124# 


5-125 


5-1 25# 


5-126 




5-130 


5-130# 


5-131 


5-1 31 # 


5-132 




5-141 


5-141# 


5-142 


5~142# 


5-143 




5-157 


5-.157# 


5-1 58 


5-1 58# 


5 - 1 59 






5-163# 








LA 120 


1-147 


23-39 








LA12FL 


1 - 1 48 


23-38 








LA12N0 


1-148 


23-37 








LA36 


1-147 


23-15 








LA36FL 


1-126 


23-14 








LA36N0 


1-126 


23- 1 3 








LACTIV 


1 -80 










LAFSIZ 


1-83 










LBSPRI 


1-160 


12-16* 








LCBIT 


1 - 1 47 










LCDTYP 


1-66 










LCLTXT 


1-57 










LCLUNT 


1-62 


1 5-20 








LCOL 


•i ..DO 


1-133 








LCONTM 


1-91 










LCPUHI 


1-91 










LCPULO 


1-91 










LCXTBL 


1-34 


30-24 








LD«RON 


1-121 










[.DBASE 


1-122 










LDCLEN 


1-71 










LDDEVX 


1-124 










LDFLAG 


1-122 










LDMNT 


1 -70 










LDNAM 


1-1 69 










LDNAME 


1-122 










LDOPHD 


1 - 1 77 










LDPDEV 


1-122 










LDSIZE 


1-122 










LF 


2-4# 










LF*OPN 


1-162 










LFSWRT 


1-162 










LFWLIH 


1 -83 










LICTXT 


1-144 










L.INBUF 


1-78 










L INC NT 


1-80 










LINCUR 


1-83 
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5- 


•3i# 




-32 


5- 


-37# 


5- 


-38 


5- 


-43# 


5- 


•44 


5 


-49# 


5 


-50 


5- 


-J>5# 


5 


■56 


5- 


-61# 


5 


-62 


5- 


-67# 


5 


-68 


5- 


-73# 


5 


•74 


5- 


-90# 


5- 


-91 






5 


_cr7 


5- 


-102« 


5- 


-103 


5- 


-108=8 


5- 


-109 


5- 


•1144} 


5 


•115 


5- 


-120# 


5- 


-121 


5- 


-126# 


5- 


-127 


5- 


-132# 


5 


-133 


5- 


-143# 


5- 


-149 


5- 


-159# 


5 


•160 



5-32# 


5-33 


5-38# 


5-39 


5-44# 


5-45 


5-50# 


5-51 


5-56# 


5-57 


5-62# 


5-63 


5~68# 


5-69 


5-74# 


5-80 


5-91# 


5-92 


5-97# 


5-98 


5-103# 


5-104 


5-1 09# 


5-110 


5-115# 


5-116 


5-121# 


5-122 


5-1 27# 


5-128 


5-1 33# 


5-134 


5-149# 


5-150 


5-160# 


5-161 



5~33# 


5-34 


5-39# 


5-40 


5-4 5# 


5-46 


5-51# 


5-52 


5-57# 


5-58 


5-63# 


5-64 


5-69# 


5-70 


5-80# 


5-81 


5-92# 


5-93 


5-98# 


5-99 


5-104# 


5-105 


5-1 10# 


5-111 


5-1 16# 


5-117 


5-122# 


5-123 


5-128# 


5-129 


5-134# 


5-135 


5-1 50# 


5-151 


5-161# 


5-162 



5-34# 

5-40# 

5-46# 

5-52# 

5-58# 

5-64# 

5-70# 

5-8 1# 

5-93# 

5-99# 

5-105# 

5-1 ii# 

5-1 17# 

5-123# 

5-129# 

5-1 35# 

5-151# 

5-162# 
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LINFRE 1-19.1 

LINIR 1-65 

L1NNXT 1-78 

LJNPNT 1-80 

LINRTS 1-65 

LIT I ME 1-105 

LJSW 1-102 

LMXLN 1-158 

LMXNUM 1-156 

I MVPDM 1.-1'=;*? 1A-7 O I — !=i r>r>--t? OT.-17 M_QO 3S-11 OA-7 

LNAME 1-60 

LNBLKS 1-107 

LNMAP 1-113 

LNPRIM 1-113 22-25 

LNSBLK 1-108 

LN5PAC 1-11 7 

LOCKTX 1-180 

LOFSPC 1-110 

LQGASN 1-172 

LOGBAS 1-132 1-J34 

LOGBLK 1-161 

LOGBUF 1-161 

LOGCHK 1-133 

LOGCHN 1-1.61 

LOGCLS 1-176 

LOGDVU 1-132 1-134 

LOGFLG .1.-161 

LOGPTR 1-161 

LOMAP 1-142 

LOTBUF .1-81 

LOTNXT 1-81 

LOTPNT 1-81 

LOTS I Z 1-82 

LOTSPC 1-82 

LOUT I R 1-65 

LP*7BT 1-52 21-8 21-11 26-8 26 11 

LPSODD 1-52 5-0. I. 5-142 22-10 22-18 25-12 

LP*PAR 1-52 5-80 5-81 5-141 5 142 22-10 22-18 25-12 

LPU5PD 1-52 16-8 24-99 

LPRG1 1-145 32-37* 32-44* 

LPRG2 1-145 32-38* 32-45* 

LPRI 1-160 12-17* 

LPROG 1-90 

LPROJ 1-90 

LRBFIL 1-114 

LRDTIM 1 -SO 

LSCCA 1-110 

LSECPT 1-95 

LSPEMT 4-36# 16-10* 16-11* 16-12* 16-13 24-101* 24-103* 24-104 

LSTACT 1-7S 

LSTATE 1-140 

LSTDL 1-89 

LSI HL t -62 

LSTIOL 1-62 

LSTMX 1-156 

LSI PL 1-135 14-34 
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I 



LSTPRM 


1 - 1 3 1 




















LSTSL 


1-140 


7- 1 4 


















LSTSPL 


1-76 




















LSUCF 


.1-86 




















LSW 


1-61 


7-16 


14-47 


1 5-8 


19- -6 


23-137 










LSW2 


1-104 


5-7 


5-12 


5 13 


5 17 


5-18 


5 


-19 


5-20 


5-21 




5-35 


5-36 


5-39 


5-40 


5-44 


5-46 


5- 


-51 


5-52 


5-53 




5-57 


5-58 


5-59 


5-60 


5-72 


5-73 


5 


-74 


14-49* 


16-6* 




23-- 13* 


23-14* 


23-29 


23-32 


23-37* 


23-38* 


23- 


-45* 


23-46* 


23-52* 




23-67* 


23-68* 


23-76* 


23-77* 


23-89* 




23- 


-1 18* 






LSW2S 


1-109 


23-29* 


















LSW3 


1-109 


5-9 


5-10 


15-14 














LSW4 


1-127 


5-23 


5-24 


23-90* 


23-107* 












LSW 5 


i -87 


23-125* 


23-131* 
















LSW6 


1-155 


5-47 


5-48 


23-124* 


23-130* 












LSW7 


1 - 1 59 


5-25 


5-26 


23-16* 


23-40* 


23-62* 


23- 


-70* 


23-79* 


23-119* 


LSW8 


1-123 




















LSW9 


1-85 




















LTRMTP 


1 — 148 


23-3* 


23-15* 


23-28 


23-39* 


23-47* 




-54* 


23-61* 


23-69* 


LTSCMD 


1-117 




















LUNAME 


1-90 


10-20 


















LWINDO 


1-34 


23-22 


















MAXALC 


1-63 




















MAXASN 


1-106 




















MAXAVL 


1-174 




















MAXMEM 


1-67 




















MAXMTX 


1 - 1 86 




















MAX PR I 


1-67 


1 - J 60 


















MAX SEC 


1-95 




















MDT 


1-77 




















MHNSIZ 


1-96 




















MHNSMS 


1-97 




















MIIMTIM 


1-95 




















MISSEG 


1-175 




















MNBASE 


1-185 




















MNBPC 


1-184 




















MNFLGS 


1-184 




















MNTARG 


1-195 




















MNTDEV 


1-170 




















MNTFUL 


1-172 




















MNTOP 


1-185 




















MNTTXT 


1-197 




















MONAR 1 


1-185 




















M0NAR2 


i *"~ 1 Eri » j 




















MONHD 


1-185 




















MONVEC 


1-160 


23-93 


23-96 


23-110 


23-113 












MSGBUF 


1-190 




















MSGEND 


1-190 




















MTOPHD 


1-171 




















MUL32 


1-200 




















MXCSR 


1-156 




















MXDTR 


1-156 




















MXJAOR 


1 - 69 




















MXJMEM 


1 - 68 




















MXJPRI 


1-160 


8-15 


8-26 
















MXPRMT 


i - 1 38 





















5-22 


5-32 


5-33 


5-54 


5-55 


5-56 


19-5* 


23-6* 


23-7* 


23-53* 


23-59# 


23-60 



< 
I 
I 
< 
t 

23-78* i 

< 

< 

C 
4 

4 

< 

4 

I 
< 
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MXTTCT 


1- 


■34 


MXVEC 


:l- 


-isa 


NAMTOP 


1- 


-144 


NARGS 


5- 


-4# 




5- 


-10 




5- 


-16 




5- 


-22 




5- 


-28 




5- 


-34 




5- 


-40 




5- 


-46 




5- 


-52 




'■if' 


-58 




5- 


-64 




5- 


'-V /-* 




5- 


-81 




5- 


-•92 




5- 


-98 




5- 


■104 




5- 


•110 




5- 


-116 




5- 


-122 




5- 


■128 




5- 


-134 




5- 


-149 




5- 


•160 


NAT XT 


1- 


-178 


NEDCHR 


1 - 


-65 


NEWJSW 


1- 


- 1 02 


NFRESB 


1- 


-129 


N1NTXT 


1- 


-178 


NLXNES 


i- 


-115 


NOCCL 


i- 


• 1 77 


NOCIN 


i- 


-169 


NODAT 


l- 


-183 


NOFIL 


l- 


-181 


NOFLAG 


i- 


-171 


NOFRDL 


i- 


-200 


NOIND 


i- 


-175 


NOKMON 


i- 


-196 


NOLDMT 


i - 


-183 


NDNEMS 


i- 


-183 


NOOPTT 


l- 


-189 


NOPMGN 


i- 


185 


NOPRG 


i- 


-165 


NOSTRT 


l- 


-168 


NOTAVL 


1- 


184 


NOT ON 


A _ 

X 


-190 


NOT XT 


1- 


-178 


NOUDC 


1- 


-182 


NSPLDV 


i- 


-121 


NSWPMS 


1- 


136 


NUCHN 


1- 


-114 


NUMDCD 


l- 


- 1 38 


NUHDEV 


1- 


-151 


NUMON 


1- 


•83 



5-5 

5-11 

5-17 

5-23 

5-29 

5-35 

5-4 .1 

5-47 

5-53 

5-59 

5-65 

5-71 

5-81 

5-93 

5-99 

5-105 

5- .» 1 1 

5-117 

5-123 

5-129 

5-135 

5-150 

5-160 



1-1 89 



1-169 



7-28 



5-5 

5-11 

5-17 

5-23 

5-29 

5-35 

5-41 

5-47 

5-53 

5-59 

5-65 

5-71 

5-82 

5-93 

105 
111 
•117 
123 
129 
5-135 
5-150 
5-161 



5- 
5- 
5- 
5- 
5- 



5-6 


5-6 


5-12 


5 12 


5-18 


5-18 


5-24 


5-24 


5-30 


5-30 


5-36 


5-36 


5-42 


5-42 


5-48 


5-48 


5-54 


5-54 


5--60 


5-60 


5-66 


5~66 


5-72 


5-72 


5-82 


5~88# 


5-94 


5-94 


5-100 


5-100 


5-106 


5-106 


5-112 


5-112 


5-118 


5-118 


5-124 


5-124 


5-130 


5-130 


5-140# 


5-141 


5-151 


5-151 


5-161 


5-162 



5-7 


5-7 


5-13 


5-13 


5-19 


5 19 


5-25 


5-25 


5-31 


5-31 


5-37 


5-37 


5—43 


5-43 


5-49 


5-49 


5-55 


5-55 


5-61 


5-61 


5-67 


5-67 


5-73 


5 73 


5-89 


5-89 


5-95 


5-95 


5-101 


5-101 


5-107 


5-107 


5-113 


5-113 


5-119 


5-119 


5-125 


5-125 


5-131 


5-131 


5-141 


5-142 


5-156# 


5-157 


5-162 


5-163 



5-8 

5-14 

5-20 

5-26 

5-32 

5-38 

5-44 

5-50 

5-56 

5-62 

5-68 

5-74 

5-90 

5-96 

5-102 

5-108 

5-114 

5-120 

5-126 

5-132 

5-142 

5-157 

5-163 



5-8 

5-14 

5-20 

5-26 

5-32 

5-38 

5-44 

5-50 

5-56 

5-62 

5-68 

5-74 

5-90 

5-96 

5-102 

5-108 

5-114 

5-120 

5-126 

5-132 

5-143 

5-158 



5- 


-9 


5- 


-15 


5- 


-21 


5- 


-27 


5- 


-33 


5- 


-39 


5 


-45 


5- 


-51 


5- 


-57 


5- 


-63 


5- 


-69 


5- 


-79# 


5- 


-91 


5- 


-97 


5- 


-103 


5- 


-109 


5- 
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5-16 
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5-27 


5-28 


5-33 


5-34 


5-39 


5-40 


5-45 


5-46 


5-51 


5-52 


5-57 


5-58 


5-63 


5-64 


5-69 


5-70 


5-80 


5-80 


5-91 


5-92 


5-97 


5-98 


5-103 


5-104 


5-109 


5-110 


5-115 
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5-127 
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5-149 


5-159 
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f OCTFIX 


1-178 






OCTPRT 


1-198 






ODTBAS 


1 - 1 54 






i OF**SZ 


1-153 






OF$DEV 


1-152 






OF*FIL 


1-152 






i OF*FLG 


1-152 






OF$UNT 


1-152 






OFFEMT 


1-192 






* OKFEND 


1 -96 






OKFILE 


1-96 






OPRTXT 


1-57 






< OPTLST 


1-43 


6-19 




OT*RON 


1-153 






OTHRON 


1-194 






i OTRMNT 


1-196 






OVRCOR 


1-168 






POSDBG 


1-47 






1 PO*NAM 


1-45 


10-17 




PO*OPR 


1-45 






PO*SPV 


1-43 






i P2*CGR 


1-40 






P2$TRM 


1 -45 






PA*BEL 


1-36 






1 PA$BLD 


1-35 






PA$DSC 


1-35 






PA*DWD 


1-35 






€ PASGRC 


1-35 






PA$HQL 


1-35 






PA*LET 


1-35 






C PA*NWD 


1-36 






PA*UKC 


J, ""JD 






PA*ULN 


1-35 






€ PARHD 


5-79# 


20-10 




PABLIM 


1-134 






PAUMSG 


1 - 1 64 






< PBFEIMD 


1-118 






PEKADR 


1 -38 






PEKEMT 


1-38 






i PEKSIZ 


1-38 






PF*IOW 


1-155 






PF$SYS 


1-155 






I PFCO 


1-43 


4-61 


11-11 


PFSO 


1-43 


4-54 


11-10 


PHYMEM 


1-101 






i PMBUSY 


1-185 






PNAME 


1-151 


1-174 




POPCF 


1- 175 






i PRGALL 


1-29 






PRGSIZ 


1-78 






PRGTOP 


1-78 






t PRIVAO 


1 -44 






PR.IVCO 


1-47 
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PRIVC2 


1-45 






* PRIVSO 


1-43 






PRMBUF 


1-131 
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PRMPIMT 


1 - 1 30 




PROSLT 


1-52 




i PRSTRN 


22-26 


30-'/* 


PRTBUF 


1-183 




PRTDAT 


1-199 




t PRTDC2 


1-180 




PRTDC3 


1-180 




PRTDEC 


1 - 1 74 


8-24 


| PRTFIX 


1 - 1 77 




PRTFNM 


1-183 




PRTLN 


1-179 




< PRTPCT 


1-193 




PRTR50 


1-199 




PRTSPC 


1-177 




< PRTTIM 


1-199 




PRTTMD 


1-182 




PRTTMV 


1-18.1 




1 PRTTOD 


1-199 




PRTTTP 


1-178 




PRTUNM 


1-179 




1 PRTWRN 


1-203 




PRVLST 


1-47 




PRVOPT 


1-43 


5-JD7 


1 PUSHCF 


1 - 1 66 




PVCEMT 


4-591* 


11-33): 


PVNPW 


1-43 


1 1 - J 2 


i PVON 


1-87 




PVSEMT 


4~52# 


11 -32k 


QHDMS1 


1-59 




€ QHDMS2 


1-59 




QUME 


1-147 




QUMEFL 


1-149 




1 QUMENO 


1-149 




R*CHN 


1-41 




R*XCHN 


1-41 




i R50BUF 


1-170 


32-S7 


R50C10 


4-7# 


31-18 


R50CL0 


4-6# 


31-20 


i R50C0M 


1-110 




R50DIR 


1-166 




R50DK 


1-199 




< R50DSK 


1-172 




R50DUP 


1-167 




R50HST 


4-4# 


"3 '">...* J"? 


< R50IND 


1-166 




R50K52 


1-167 




R50KED 


1-167 




4 R50KEX 


1-167 




R50KMN 


1 — 37 


32-44 


R50LD 


1-172 




i R SOLDO 


1-170 




R50LD7 


1 - 1 72 




R50L0G 


1-176 




* R50M0N 


1 -200 




R50N0 


1-173 
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R50SAV 


1-166 






R50SY 


1-166 






R50TSX 


1-167 






R50TT 


1-195 






R50UCL 


1-167 






R50VIR 


1-168 






RC**SZ 


1-51 






RC$AEP 


1-50 






RC*AQE 


1-50 






RC$CNT 


1-4? 






RCSEXC 


1-50 






RC$FLG 


1-50 






RC*GBL 


1-50 






RC*LCG 


1-52 






RC*LEN 


1-5.1 






RC*NAM 


1-50 






RCfOWN 


1-49 






RC$PVT 


1-51 






RC*USE 


1-50 






RCBBAS 


1-51 






RCBEND 


1-51 






RDB 


1-139 






RDBEND 


1 - 1 39 






RDCHD 


1 - 1 64 


5-'.m 5 




RDERM 


1 - 1 63 






REMTXT 


1-57 






RESDEV 


1 - 1 53 






RJEMT 


1-37 


1 3-24 




RNMS 


1-179 






RONTXT 


1-194 






RSR 


1 - 1 56 






RSTPRV 


1 -44 






RSTQUT 


5-42 


?3- i 03 23 




RT**SZ 


1-139 






RT*NAM 


1 - 1 39 






RUNDEV 


1-107 






RUNEMT 


1-168 






RUNHD 


1-164 






RUNMS 


1 -200 


23-139 




S*HICP 


1-92 






S*INWT 


1-93 






S*IOFN 


1-88 






S* I OWT 


1-145 






S*LOW 


1-90 






S*HSWT 


1 -94 






S*OTFN 


1-89 






S*OTLO 


1-88 






S*OTWT 


1-93 






S*QMIO 


1 -36 






S*«USR 


1~14',7 






S*RT 


1-90 






S*SFWT 


1-93 


.1.-145 




S*SPCB 


1-146 






S$SPDB 


1-146 






S*SPND 


1 -87 
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i S$TMWT 


1 -93 










SSTTFN 


1-88 










S*TTSC 


1-89 










1 S*TWFN 


1 -88 










S9600 


1-93 


19-S 








SADM3A 


5-5 


23~67# 








i SAUTO 


5-6 


19-4# 








SBPSUF 


1-36 










SCHAIN 


1-124 










< SCNOPS 


1 — T7 


14-56 


32-12 






SDSBAK 


1-127 










SD*DEL 


1-119 










t SDSFLK 


1-120 










SD$HLD 


1-130 










SB*SNG 


1-129 










1 SD$WFM 


1-120 










SDBLK 


1-121 










SDBU 


1-127 










1 SDBUF1 


1-121 










SDCB 


1-135 










SDCBND 


1-135 










< SDCBSZ 


1-140 










SDDVU 


1 - 1 39 










SDFHD 


1-132 










€ SDFLAG 


1-120 










SDFQRM 


1-120 










SDIAB 


5-14 


23~76# 








€ SDNAME 


1-140 










SDSFCB 


1-119 










SDSKIP 


1-127 










€ SEARCH 


1-164 


24-32 








SERFLG 


1-61 










SETCL 


1-26 


24~B# 








€ SETDED 


5-9 


23— 1 36# 








SETDTR 


5-15 


18-4# 








SETHD 


1-173 










i SETHST 


1-26 


32-6# 








SETJMP 


23-31 


23-33* 








SETNSC 


5-45 


23- 1 1 8# 








i SETPAR 


5-37 


20-4# 








SETPRC 


1-27 


6-6# 








SETPRM 


4-1 6# 


14-9* 


1 4-4 1 # 


23 26 


33-30 


< SETQUT 


5-41 


23-86 


23-89# 






SETTNW 


5-70 


23~130# 








SETTTB 


5-12 


5-17 


5-19 


5-21 


5-23 






23- .1 38 


23-1 44# 






SETTTP 




5-51 


5-53 


5-55 


23~143# 


SETTTY 


1-27 


14-5*t 








t SETTW 


5-69 


23~!24# 








SETWRD 


1 -42 


20- .1.1 


24-142 






SETXON 


5-71 


17-4# 








i SF*1ST 


1 - 1 30 










SFtBSY 


1-129 










SF*HLD 


1 - 1 30 










< SFFILE 


1-146 










SFFLAG 


1-132 
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SFFORM 


1-129 




SFID 


1-76 




SFNMBL 


1-129 




SFGLNK 


1-132 




SFUSER 


1-146 




SH**S2 


1-74 




SH$FLG 


1-74 




SH*NAM 


1 - 74 




SHSRTN 


1-74 




SH*VAL 


1-74 




SHMTH1 


1-182 




SHMTH2 


1-182 




SHOHD 


1-197 




SHRRCB 


1-51 




SHRRCN 


1-51 




SHTMSG 


1-192 




SIZEMT 


1-195 




SI2VAL 


1-169 




SJEMT 


1-37 


13-27 


SKPSPC 


1-28 


9-14 


SLA 120 


5-30 


23-37# 


SLKDOF 


1-55 




SLKDON 


1-55 




SLMXLN 


1-203 




SMRSIZ 


1-143 




SOSNO 


1-75 




S04NVL 


1-7 5 




SOSOCT 


1-75 




SOPALC 


1 -66 




SOP DAT 


i-66 




SOFT I M 


1-66 




SPACE! 


1-49 




SPACE2 


1 - 1 79 




SPACE3 


1-179 




SPACE5 


1-180 




SPACE6 


1-183 




SPACTV 


1-187 


1 - J (<B 


SPCF 


1-189 




SPDTX1 


1 - 1 78 




SPFLK 


1-189 




SPFUL 


1-189 




SPOEMT 


1-189 




SPLACT 


1-192 




SPLCHN 


1-92 




SPLHD 


1-186 




SPLHLA 


1-177 




SPLPND 


1-194 




SPSNG 


1-187 


1 - i 89 


SPUBUF 


1-69 




SPWFM 


1-187 


1 - J 88 


SQUME 


5-43 


23-754! 


SRTSIZ 


1-143 




SRTSMS 


1-194 




SRTTXT 


1-197 




SSRMAP 


1-197 




STAEMT 


4-66# 


15-26* 



14-10 



20-6 



24-17 



24-25 



24-137 



30-30 



30-37 



30-48 



30-70 



15-27 
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STCLBT 


5-89 


26-4# 






STOLEN 


5-8 


21-441 






STCLGR 


5-102 


5-103 


2.4 -8 Hi 




STCLLN 


5-115 


27-4# 






STCLNL 


24-53# 


24-58 


24-65 


24-72 


STCLNP 


5-126 


25-17# 






STCLOP 


5-70 


5-92 


5-96 


5-98 




5-120 


5- 121 


24~57# 




STCLP1 


25-9# 


25-20 






STCLPO 


5— 1 P5 


24-137* 






STCLPR 


5-141 


5-142 


5-143 


25-8# 


STCLRS 


5-130 


24-1 20# 






STCLS1 


24-101# 


25-14 


26-16 




STCLSP 


5-133 


24-9 5# 






STCLVL 


5-94 


5-110 


5-131 


5-13 


STCLVR 


5-134 


2S-4# 






STCLXN 


5-135 


24-115# 






STERM 


23~48# 








STHAZL 


5-27 


23-59# 






STLA36 


5-11 


5-31 


23-13# 




STLGCN 


1-29 








STLGHD 


1-176 








STNOPR 


5-38 


22~16# 






STNOVR 


1-27 


23-85# 






STPAR 


5-80 


5-81 


5-82 


22 -8# 


STPASK 


1-194 








STPFLG 


1-92 








STSP1 


16-10# 


19-9 


21-17 


22- -12 


STTRNS 


5-61 


22-24# 






STTTSP 


5-49 


16-4# 






STTTST 


5-50 


1 5--4# 






STVRFY 


1-27 


23-102# 






SUBARO 


1-184 








SUBTXT 


1-197 








sues 


1-144 








SUM1 


1-193 








SUM2 


1-193 








SUM3 


1-193 








SUM4 


1-193 








SUMS 


1-194 








SUM 6 


1-194 








SUM7 


1-194 








SUMS 


1-144 








SUPCOD 


1-144 








SVT100 


1-27 


5-62 


23-4 5# 




SVT200 


1-27 


5-63 


5-64 


5-65 


SVT50 


1-27 


5-67 


5-68 


23-6# 


SWPTX 


1-180 








SXBPNT 


1-69 








SYASHD 


1-59 








SYHD1 


1 - 1 79 








SYMD2 


1-179 








SY1NDX 


1-151 








SYNAME 


1-152 








SYPSWD 


1-39 








SYSAV 


1-164 
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SYSDAT 


1.-141 






SYTIMH 


1-141 






SYTIML 


1-141 






SYUNIT 


1-151 






TAB 


2-8# 






TALEMT 


1-114 






TBLOVF 


1-173 






TECO 


1-73 






TK1SEC 


1-143 






TK 1 VAL 


1-141 






TM$AUT 


1-57 






TM*CDS 


1-56 






TM*CEN 


1-56 






TM*CLO 


1-58 






TM*CL1 


1-58 






TM*CL2 


1-58 






TM*CL3 


1-58 






TM*CL4 


1-58 






TM*CL5 


1-58 






TM$CL6 


1-58 






TM4CNG 


1-56 






TM*GBL 


1-49 






TM*HPE 


1-56 






TM*HPR 


1-55 






TMSIN1 


1-38 






TM*IN2 


1 -38 






TM*LCL 


1-49 






TM*LPR 


1-55 






TMSNAD 


1-60 






TM«NNR 


1-38 






TM*NSD 


1-60 






TM$PR1 


1-55 






TM*PR2 


1-55 






TM*PVA 


1-44 






TM*PVC 


1-44 






TM*RD1 


1-49 






TM*RD2 


1-49 






TM$SDN 


1-60 






TM*XBK 


1-37 


32- 


-46 


TMIDLH 


1-71 






TMIOH 


1-71 






TMIOWH 


1 -70 






TMSWPH 


1-71 






TMSWTH 


1-71 






TMTOTH 


1-70 


1- 


-193 


TMTOTL 


1-70 


!•- 


- .1 93 


TMUSRH 


1-70 






TOTMMS 


1-197 






TOTON 


1-92 






TOTXT 


1-176 


8- 


-25 


TRGRET 


1-144 






TRMHD1 


1-56 






TRMHD2 


1-56 






TRMSTR 


1 — 166 
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1 - 1 56 
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32-10* 


TXTCL 


1-91 




i UC*MDC 


1-163 




UCSNDC 


1-163 




UCHAN 


1-112 




1 ur i dep 


1 -64 




UCISPC 


1-96 




UCLBLK 


1-162 




i UCLCMD 


1-28 




UCLDAT 


1 — 1 62 




UCLNAM 


1 - 1 1 7 




t UERSEV 


1-134 




UFORM 


1-104 




UFPTRP 


1-119 




1 UHIMEM 


1-107 




UKMNAM 


1-85 




UMSSMS 


1-197 




i UMSYTP 


1 -89 




UPTMMS 


1-192 




USPLCH 


1-92 




1 USRMMS 


1 - 1 98 




USRSTK 


1-68 




USTART 


1-103 




€ UTRPAD 


1-67 




VCDRTM 


1-138 




VCSHNB 


1-95 




€ VDBFLG 


1-82 




VHIPCT 


1-136 




VI MAGE 


1-102 




i VINTIO 


1-128 




VLDSYS 


1-86 




VNUMDC 


1-138 




i VPRIDF 


1-42 




VOUANO 


1-135 


1-136 


VQUAN1 


1-136 




< VQUAN2 


1-3.36 




VQUAN3 


1-135 


1-3 86 


VQUN1A 


1-136 




i VQUN1B 


1-128 




VQUN1C 


1 — 1 El. 8 




VSLEDT 


1-203 




i VTiOO 


1-147 


23-47 


VTiOFL 


1-149 


23-46 


VT10N0 


1-149 


23-45 


i VT200 


1-146 


23-54 


VT2007 


1-146 




VT200S 


1 - 1 46 




* VT20FL 


1-150 




VT20N0 
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23-96 


23-96 


23-110 
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24-128 
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24-128 


24-128 




29-36 
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29-36 


29-36 


29-36 
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. . . CM3 


24- 1 30 
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. . . CM5 


8-25 


8-28 


23-93 


23-96 


23-110 


23-113 


24-128 


29-36 


31-22 


32-46 






. . . CM6 


23-93 


23-96 


23-110 
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24- J 30 
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. CSIGE 
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. CSISP 
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. DATE 
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. ENTER 


1-21# 
























. EXIT 


1-21# 
























. FPROT 


l-22# 
























. GTIM 


1-19# 
























. GTLIN 


1-19# 
























. OVAL 


l-22# 


23-93 


23-110 




















. HERR 


l-22# 
























. LOOKU 


1 -20# 


31-22 






















. PRINT 


1 -20# 


8-25 


8-28 


32-46 


















. PURGE 


1-17# 


24-132 






















. PVAL 


l-22# 


23-96 


23-113 




















. READW 


1-17# 
























. REOPE 


1-18# 
























. SAVES 


1-18# 
























. SERR 


l-22# 
























. SPFUN 


1-1 9# 


24-120 


29-36 




















. SRESE 


1~16# 
























. TTOUT 


.t-16# 
























. TTYINi 


1-1 7# 
























. TTYOU 


1-1 7tt 
























. WRITW 


1-21# 
























CMDDEF 


3-47# 


5-5 


5-6 


5-7 


5 8 


5-9 


5 10 


5-11 


5-12 


5-13 


5-14 


5-15 




5-16 


5- 1 7 


5-18 


5-19 


5-20 


5-21 


5-22 


5-23 


5-24 


5-25 


5-26 


5-27 




5-28 


5-29 


5-30 


5-31 


5 32 


5-33 


5 -34 


5-35 


5-36 


5-37 


5-38 


5-39 




5-40 


5-41 


5-42 


5-43 


5-44 


5-45 


5-46 


5-47 


5-48 


5-49 


5-50 


5-51 




5-52 


5-53 


5-54 


5-55 


5-56 


5-57 


5-58 


5-59 


5-60 


5-61 


5-62 


5-63 




5-64 


5-65 


5-66 


5-67 


5-68 


5-69 


5-70 


5-71 


5-72 


5-73 


5-74 


5-80 




5-81 


5-82 


5-89 


5-90 


5-91 


5-92 


5-93 


5-94 


5-95 


5-96 


5-97 


5-98 




5-99 


5-100 


5-101 


5-102 


5-103 


5-104 


5 105 


5-106 


5-107 


5-108 


5-109 


5-110 




5-111 


5-112 


5-113 


5-114 


5-115 


5-116 


5-117 


5-118 


5-119 


5-120 


5-121 


5-122 




5-123 


5-124 


5-125 


5-126 


5-127 


5-128 


5-129 


5-130 


5-131 


5-132 


5-133 


5-134 




5-135 


5-141 


5-142 


5-143 


5-149 


5-150 


5 151 


5-157 


o 1 z?o 


5-159 


5-160 


5-161 




5-162 


5—1 63 






















FABORT 


3-15# 


y.-.p-J 


7 28 


10-34 


10-35 


11-59 


1 1 -63 


1 3-38 


14-36 


15-10 


15-16 


15-22 




16-20 


17-1 J 


18-15 


21-15 


23-139 


24-11 


24-41 


24-45 


24-53 


24-111 


24-133 


25-15 




26-15 


26-17 


27-25 


27-28 


27-31 


27-34 


27-37 


28-9 


29-47 


30-26 


30-40 


30-57 




31-32 


32-20 


32-25 


32-32 


3tz. "66 
















FERR 


3-4# 


8-22 


9-55 




















FWARN 


3-23# 
























TBLDEF 


3-35# 


5-4 


5-79 


5-88 


5-140 


5-148 


5-156 












TBLEND 


3-6 1# 


5-75 


5-83 


5-136 


5 144 


5-3 52 


5 164 
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